var
  x: double;
  i, k, n: integer;

begin
  k := 0;
  Writeln('Задайте количество вводимых чисел: '); Readln(n);
  Writeln('Введите ', n, ' чисел');
  for i := 1 to n do
  begin
    Read(x);
    if x = 0 then Inc(k)
  end;
  Writeln('Введено нулей: ', k);
end.

Тестовое решение:
Задайте количество вводимых чисел:
10
Введите 10 чисел
-5 3.6 0 11.52 0 0 -1 0 45.54 1.2e-4
Введено нулей: 4