Дан массив С (40), заполненный трехзначными случайными числами. Найти произведение четных элементов и сумму нечетных элементов массива.

PascalABC.NET:

##var C := ArrRandom(40, 100, 999);C.Println;C.Where(x → x.IsEven).Aggregate(BigInteger.One, (a,x) → a*x).Println;C.Where(x → x.IsOdd).Sum.Print