Question

Дана квадратная матрица действительных чисел. Найти сумму модулей элементов, расположенных выше главной диагонали.
Помогите в паскале написать это чудо!

Answer 1

const nx = 20;mx = 20; var A:Array[1..nx,1..nx] of real; i,j,n,m:integer; sum:real; begin write('Введите размер матрицы'); Read(n); for i:=1 to n do begin for j:=1 to n do begin A[i,j]:= random()*100 -50; write(A[i,j]:9:4); end; writeln; end;  writeln; writeln;
 for i:=1 to n do begin  for j:=1 to n do beginif i < j then begin write(A[i,j]:9:4); sum:=sum + A[i,j]; end else write(' ':9); end; writeln; end; write('Сумма = ',sum); end.