Question

Turbo pascal: tablou bidimensional cu m linii și m coloane: sa se facă suma elementelor pare de pe poziții impare

Answer 1

program sumaCompon;

const mmax=30;

type Matrice = array[1..mmax, 1..mmax] of integer;

var m, i, j, suma: integer;

   A: Matrice;

begin

  write ('m=');  read(m);

  writeln(' introdu elementele matricei: ');

  for i:=1 to m do

    for j:=1 to m do

      begin

        write('A[',i,',',j,']='); read(A[i,j]);

        if (j mod 2 =1)and(A[i,j] mod 2 =0) then suma:=suma+A[i,j];

      end;

  writeln('suma=',suma);

end.