Question

Помогите пожалуйста с задачей по информатике :(​ дам 35 баллов

Answer 1

program test;

const N=10000;

var a:array[1..n] of integer;

k,i,l:integer;

begin

writeln('Введите количество чисел');

readln(l);

for i:=1 to l do begin

write('Число: '); readln(a[i]);

if a[i]>0 then k:=k+1;

end;

write('Ответ: ',k);

end.