Question

De elaborat un program care calculeaza intr un tabel bidimensional 5x5 de numere intregi:
suma elementelor parede e diagonla principala.

Answer 1

var a:array [1..5,1..5] of integer;
i,j,s:integer;

begin
  s:=0;
  for i:=1 to 5 do
    for j:=1 to 5 do
      read(a[i,j]);

    for i:=1 to 5 do
    if a[i,i] mod 2 = 0 then s:=s+a[i,i];

    write(s);
end.