Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Вводится 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