Question

Нужно написать 11 задачу в паскале !!!

Answer 1

var N:array[1..20] of byte;
       i,k:longint;
begin
for i:=1 to 20 do read(N[i]);
for i:=1 to 20 do if N[i]<3000 then k:=k+1;
write(k);
end.