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

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