Question

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

Answer 1

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