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

пишет неизвестное имя типа double

Значит у Вас какой-то додревний Паскаль. Попробуйте на real заменить

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