Question

Дан массиве, состоящий из 20 целочисленных элементов. Найти произведение положительных элементов массива.

Answer 1

// PascalABC.NET 3.6.3

begin

 var a := ArrRandom(20, -99, 99);

 a.Println.Where(p -> p > 0).Product(p -> BigInteger(p)).Print

end.