Дан массив [1 ... n] и число m. Найдите количество элементов больше числа l

Question

Информатика

Савёл

21 июня, 02:22

Дан массив [1 ... n] и число m. Найдите количество элементов больше числа l

+5

Ответы (1)

Знаете ответ?

Любуся · Answer 1

Var

m, n, k, i:integer;

a:array[1 ... 1000] of integer;

begin

write ('Write size array: ') ; readln (n) ;

write ('Write m: ') ; readln (m) ;

k:=0;

for i:=1 to n do

begin

read (a[i]) ;

if a[i]>m

then inc (k) ;

end;

writeln (k) ;

readln;

readln

end.