Дано N целых чисел, сгенерированных случайным образов в диапазоне -100, 100. Найти...

Question

Дано N целых чисел, сгенерированных случайным образов в диапазоне -100, 100. Найти произведение всех чисел > 5.

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
  Writeln('П= ',a.Where(k->k>5).Aggregate(BigInteger(1),(p,q)->p*q))
end.

Пример
n= 50
-5 42 31 99 39 62 31 -41 -88 73 -60 95 69 -31 -12 39 16 31 -63 40 -52 -57 86 87 71 -82 -24 60 -11 -57 11 -26 -57 27 -82 3 9 -3 -83 -11 62 -56 95 -66 -49 -16 80 58 26 22
П= 4764546458283894070551668787355317043200000

Comments

Это вы сами написали или с сайта какого то?

---

Хаха!смешно!Не мог найти. Не заметил