Вводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чисел нулей. Измените что надо сайт не пропускает.

var i, n, t, k:Inteer;

begin

write ('n:=') ; readln (n) ;

for i:=1 to n do begin

write (i,'-> ') ; readln (t) ;

if t=0 then inc (k) ;

end;

writeln (k) ;

end.

Ловите, сам написал, сам проверил, все работает.

var input, num, nulls, i: integer;

begin

write ('Введите кол-во чисел: ') ;

readln (input) ;

for i : = 1 to input do begin

write ('Введите число номером ', i, ': ') ;

readln (num) ;

if num = 0 then inc (nulls, 1) ;

end;

writeln ('Кол-во нулей: ', nulls) ;

end.