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

Question

Информатика

Ион

28 августа, 18:55

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

+4

Ответы (1)

Знаете ответ на вопрос?

Порфир · Answer 1

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.