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

Program gt;

var A: array[1 ... 1000,1 ... 1000] of real;

n, m, i, j:integer;

s: real;

begin

read (n, m) ; / / размеры массива

s:=0;

for i:=1 to N do

for j:=1 to M do

begin

read (a[i, j]) ;

if (j>i) then s:=s+abs (a[i, j]) ;

end;

writeln (s) ;

end.