Program n1; const n=100; var a: array[1..n] of integer; k,i: integer; begin write('массив: '); k:=0; for i:=1 to n do begin a[i]:=random(100); write(a[i],' '); if a[i]>10 then k:=k+1; end; writeln; write('количество элементов больше 10: ',k); end.
Системный блок-включающий в себя процессор устройства оперативной памяти .предназначен для обработки данных и управления работой компьютера.клавиатура применяется для вода информации в память компьютера. монитор предназначен для вывода информации на экран .мышь -одно из основных устройств ввода предназначенное для управления компьютером.джойстик для управления компьтером во время игры сканер для вода графических изображений в память компьютера непосредственно с бумажным оригиналом принтер для вывода информации на бумагу
Сперва зазвонит он Обычным звонком, Потом говорит Чьим-нибудь голоском. (Телефон) Хоть по объёму и мала, Информацию хранит она. Знаем все устройство это Называется……. (Дискета) Телефоны сохраняет, адреса и имена, Записать все то, что нужно нам она. Есть у всех она, конечно, у девчонки и мальчишки, Догадались, что же это? Это(записная книжка) Грызть не любит ничего, Сыром не питается! Монитор без нее грустит, Сайт не открывается!(мышь) Под крышей - четыре ножки, На крыше - суп да ложки. Стоит весёлый, светлый дом. Ребят проворных много в нём. Там пишут и считают, Рисуют и читают. (школа)
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(100,-50,50); a.Println;
Writeln('Чисел, больших 10: ',a.Where(t->t>10).Count)
end.
Пример
-25 42 -38 -19 -8 -27 -41 -17 19 27 43 -1 -1 -36 29 47 -31 -42 -39 36 15 -3 32 37 -26 9 -19 23 -34 -20 -48 -43 -47 43 20 -46 9 -36 39 -50 -13 -45 19 -39 -24 -14 -25 -39 32 -23 16 2 -36 -5 25 28 -41 -24 -43 34 42 -14 -34 -12 24 36 -5 6 -6 24 -13 -46 -31 -39 -2 9 28 21 11 38 -16 -30 42 39 14 1 43 8 -32 43 45 -17 -43 -45 -41 -50 39 -20 -12 -10
Чисел, больших 10: 35