Рост каждого из N учащихся сохраняется в сантиметрах в массиве. Найдите количество учеников, рост которых больше M сантиметров.

Program Sr;

var a, m, c:integer;

massiv:array [1 ... 10] of integer;

begin;

a:=0;

writeln ('введи искомый рост') ;

read (m) ;

randomize;

for c:=1 to 10 do

begin;

massiv[c]:=random (100,200) ;

end;

begin;

for c:=1 to 10 do

if massiv[c]>m then

a:=a+1;

end;

writeln (a,'Учеников выше', m,'см') ;

end.