--- PascalABC.NET 3.6.3 ---
begin
var A := ArrRandom(15, -99, 99);
A.Println;
A.Where(p -> p mod 2 <> 0).Product(x -> BigInteger(x)).Println;
end.
Пример работы:
--- PascalABC.NET 3.6.3 ---
begin
var A := ArrRandom(15, -99, 99);
A.Println;
A.Where(p -> p mod 2 <> 0).Product(x -> BigInteger(x)).Println;
end.
Пример работы: