• В одномерном массиве найти произведение ненулевых элементов
    ( Задать рандомно )

Ответы 1

  • Program n1;const n=10;var a: array [1..n] of integer;i,p: integer;beginrandomize;p:=1;for i:=1 to n do a[i]:=random(10);for i:=1 to n do if a[i]<>0 then p:=p*a[i];writeln(p);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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