Помогите пожалуйста не могу решить все решила а один остался (((

а что тут думать то?

прогоняешь все числа по циклу, проверяя каждое больше ли оно нуля. . если да то x=x + 1; где x это твой ответ (изначально задается x=0)

k:=0;
for i:=1 to n do begin
write('a= '); readln(a);
if a=0 then k:=k+1; end;
writeln('k= ',k);