• вводится последовательность из N чисел. найти сколько в ней нулей

Ответы 1

  •  var   a,i,n,k : integer;   begin  k := 0;  write ('n = ');  readln (n);     for i := 1 to n do    begin     read (a);      if a =0 then       k := k +1;    end;      writeln (k,' - кол-во нулей');          end.
    • Автор:

      payton49
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years