Информатикадан сұрак

Question

Екіөлшемді А(8,8) массивндегі индекстерінің қосындысы 4-ке тең болатын элементтерінің қосындысын есептеп шығарындар.

Answer 1

program massiv;

var a:array [1..8,1..8] of integer;

i,j,s:integer;

begin

writeln('Massivti engiz');

for i:=1 to 8 do

for j:=1 to 8 do

begin

readln ( a [ i , j ]);

end;

s:=0;

for i:=1 to 8 do

for j:=1 to 8 do

if i+j=4  then

s:=s+a[i,j];

writeln('kosyndy-', s);

end.