Question

Помогите, плиз!
В массиве B, содержащем 10 положительных и отрицательных целых чисел, вычислить произведение отрицательных элементов. Элементы массива вводить с клавиатуры.

Answer 1

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

begin
  var b:=ReadArrInteger(10);
  Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.

Пример
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600