Question

Написать Программ подсчета количества всех четных элементов пятой строки двумерного массива и произведения чисел, кратных пяти в третьем столбце этого массива, размером 7х9. ПАСКАЛЬ

Answer 1

===== PascalABC.NET =====

begin

 var a := MatrRandom(7, 9, 1, 20);

 a.Println(3);

 a.Row(4).Count(p -> p.IsEven).Println; // кол-во

 a.Col(2).Where(p -> p mod 5 = 0).Product.Println // произв.

end.