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