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

begin
  Writeln('N=',ReadSeqInteger(ReadInteger('n=')).Where(k->k=0).Count)
end.


n= 7
1 0 0 4 -3 0 3
N=3