Дан двумерный массив целых чисел N*M (задается рандомно). Вычислить сумму всех элементов массива, стоящих в ячейках с четными координатами. Pascal

Const N=10;const M=15;var A: array [1..N] of integer;var B: array [1..M] of integer;i,j: integer;beginj:=0;for i:=1 to N doA[i]:=random(100);for i:=1 to M doB[i]:=random(100);for i:=1 to N doif i mod 2=0 then j:=j+A[i];for i:=1 to M do if i mod 2=0 then j:=j+B[i];writeln(Сумма всех элементов массива, стоящих в ячейках с чётными координатами равна: , j);end.

Ybdabuf yt gjyzk z xtnj