// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var n:=ReadInteger('n=');
var a:=MatrixRandom(n,n,1,100);
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Write(a[i,j]:4);
Writeln
end;
var s:=0;
foreach var x in a do
if x.IsEven then s+=x*x;
Writeln('Сумма квадратов нечетных ',s);
end.
Пример
n= 5
79 56 2 39 24
16 91 85 61 6
59 61 47 9 52
71 9 43 81 66
57 55 7 82 97
Сумма квадратов нечетных 17792