program raf105;

var a:array[1..10] of integer;

x,i:integer;

begin

writeln('Введите 10 чисел по очереди:');

for i:=1 to 10 do

begin

 readln(a[i]);

 if a[i]=0

   then x += 1

end;

writeln('Количество нулевых элементов: ',x);

end.

Язык PascalABC