Question

составьте программу для нахождения произведения элементов целочисленного одномерного массива значения которого принадлежат диапазону -130..50

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-130,50); a.Println;
  a.Aggregate(BigInteger(1),(i,j)->i*j).Println
end.

Пример
n= 20
-49 -72 -10 -96 -36 -82 -26 -65 -121 -31 3 -102 49 40 -43 -84 -98 -109 -68 -20
-1994649777584318358814520770560000

Answer 2

Решение на Python 3.6.4