Матрица!!!!!!! Пожалуйсто!!!!!

[Artom]

Найти сумму элементов матрицы, лежащих выше главной диагонали!!!!!

[Kravec]

Ну если тебе надо искать сумму выше главной диагонали то это надо брать i<j , вот тебе программа только там сумма ниже главной диагонали , так что переделывай это займёт буквально 1 минуту )

Program Matrix;
var a:array[1..20,1..20]of integer;
n,i,j,s :integer;
begin
writeln('vvedite n');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('a[' ,i, ',',j,']=');
readln(a[i,j]);
end;

for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
s:=0;
for i:=2 to n do
  for j:=1 to i-1 do
    s:=a[i,j]+s;

write('s=', s);
readln;

end.