Вводится N чисел. Найти сколько из их нулей.

program zz1;

var a, b,  n, i:integer; // задаем переменные целого типа

begin

write( введите заданное n );  // вводим с клавиатуры количество вводимых чисел

read(n);  

for i:=1 to n do  // организуем цикл на n повторений

begin

writeln( введите , i ,-ое число );

read(a);  // вводим еще одно число

if a = 0 then b:=b + 1; // проверяем, если число одинаково нулю, то считаем его

end;

write( количество введенных нулей = , b); // выводим ответ

end.