Question

помогите решить одну задачу легкую

Answer 1

Program gt;
var n,i,a,h:longint;
begin
readln(n);
h:=0;
for i:=1 to n do
begin
read(a);
if(a>0) then h:=h+1;
end;
writeln(h);
end.
Этот сайт я знаю. я там решил 1250 задач