Question

Задание в картинке. СРОЧНО!

Answer 1

program sotka

var i,n,k,s:integer;

Begin

s:=0;

read(n);

for i:=1 to n do begin

readln(k);

if (k>100) then begin

s:=s+1;

end;//if

end;//for

writeln(s);

End.