двухмерные масивы. в целочисленной матрице размерность 10*10 отыскать сумму положительных

// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

// Внимание! Если программка не работает, обновите версию!

begin

 var a := MatrRandom(10, 10, -99, 99);

 a.Println(4);

 Println(4 * a.ColCount * '-');

 a.ElementsWithIndexes.Where(t -gt; t[1].IsOdd and t[0].IsEven)

     .Sum(t -gt; t[0]).Println

end.

const n=10;

var a:array [1..n,1..n] of integer;

i,j,s:integer;

begin

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(21)-10;

write(a[i,j]:4)

end;

writeln;

end;

for i:= 1 to n do

if i mod 2 = 0 then

for j:=1 to n do

if a[i,j]gt;0 then s:=s+a[i,j];

writeln ('Сумма положительных частей чётных строк одинакова: ',s)

end.