Question

Pascal,с объяснениями пожалуйста
Дан массив А(5,5), элементы которого случайные числа из [15;80]. Найти произведение нечётных элементов массива. В

Answer 1

// PascalABC.NET

begin

 var a := MatrRandom(5, 5, 16, 80);

 a.Println;

 a.ElementsByRow

     .Where(p -> p.IsOdd)

     .Aggregate(BigInteger.One, (p, q) -> p * q)

     .Print

end.