Вводится число 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.