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

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;<br>write(k);
end.