Надо написать на паскале в заданном массиве определите количество элементов,которые меньше заданного с клавиатуры числа

270

440

Посмотреть ответы 2

Ответы на вопрос:

Joan36

Информатика

4,4(76 оценок)

Const n=10; var i,m,k: integer; a: array[1..n] of integer; begin randomize; write('исходный массив: '); for i: =1 to n do begin a[i]: =random(90)+10; write(a[i],' ') end; writeln; writeln('введите целое число: '); read(m); k: =0; for i: =1 to n do if a[i]< m then inc(k); writeln('количество чисел, меньших ',m,' равно ',k) end. тестовое решение: исходный массив: 42 89 49 25 96 87 94 93 41 28 введите целое число: 50 количество чисел, меньших 50 равно 5