Question

De elaborate in program CE calculeaza intrun tabel bidimensional 5x5 de numere intregi suma elementelor pare de pe diagonala principals turbo pascal

Answer 1

Program Pn;
var
x:array[1..5,1..5] of integer;
j,i,s:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
Write('x[',i,',',j,']=');readln(x[i,j]);
if i=j then
if (x[i,j] mod 2)=0 then s:=s+x[i,j];
end;
end;
Writeln('Suma=',s);
readln;
end.