Turbo Pascal есептеу: екі өлшемді массив

Question

Turbo Pascalдан көмек керек.Екі өлшемді массив. 

Жұп элементерінің мүше цифрларының қосындысын табыңыз.

Алдын ала РАХМЕТ!!!

Answer 1

Program Massiv;

var
 a: array[1..n, 1..m] of real;
 n, m, i, j,s: integer;

begin
 clrscr;
 write('Massivtin olshemderin engiziniz');
 readln(n,m);

 writeln('Massivtin elementteri engizu')
 for i:=1 to n do
 begin
 for j:=1 to m do
 begin

 writeln('a[',i,j,']=');

 readln(a[i,j]);
 end;
 writeln;
 end;

 s:=0;

 for i:=1 to n do
 for j:=1 to m do

 if (a[i,j] mod 2 = 0 then s:=s+i+j);

 writeln('Masssivtin jup elementterinin mushe tsifrlarinin kosindisi=',s);

 readln
end.