• С клавиатуры вводится число N, а затем N чисел. Найти произведение отрицательных.

Ответы 1

  • var a:array[1..10000] of longint; i,n,k:longint;begin readln(n); for i:=1 to n do  read(a[i]); k:=1; for i:=1 to n do  if a[i]<0   then    k:=k*a[i]; writeln(k); readlnend.
    • Автор:

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

Войти через Google

или

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

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

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