Question

Для каждой из матриц Х(8;8) и У(10;10) вычислить сумму элементов,расположенных на главной диагонали и выше её.

Answer 1

var

i,j,s:integer;

x:array[1..8,1..8] of integer;

y:array[1..10,1..10] of integer;

begin

s:=0;

for i:=1 to 8 do

for j:=1 to 8 do

begin

readln(x[i,j]);

if i<=j then s:=s+x[i,j];

end;

writeln("Сумма для X=", s);

s:=0;

for i:=1 to 10 do

for j:=1 to 10 do

begin

readln(y[i,j]);

if i<=j then s:=s+y[i,j];

end;

writeln("Сумма для Y=", s);

end.