Дан массиве, состоящий из 20 целочисленных элементов. Найти произведение положительных элементов массива.
Язык программирования?
Паскаль
// PascalABC.NET 3.6.3
begin
var a := ArrRandom(20, -99, 99);
a.Println.Where(p -> p > 0).Product(p -> BigInteger(p)).Print
end.
