// PascalABC.NET 3.2, сборка 1485 от 15.06.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(3,4,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('Кол-во четных равно ', a.Rows.SelectMany(x->x).Where(x->x.IsEven).Count) end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,4,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Кол-во четных равно ',
a.Rows.SelectMany(x->x).Where(x->x.IsEven).Count)
end.
Пример
*** Исходный массив ***
42 -55 64 58
62 -95 -40 20
8 55 -87 45
Кол-во четных равно 7