Дана вещественная квадратная матрица А, размерностью n*n. Найти сумму элементов матрицы, расположенных под главной диагональю

Question

Информатика

Эдик

8 августа, 16:58

Дана вещественная квадратная матрица А, размерностью n*n. Найти сумму элементов матрицы, расположенных под главной диагональю

+4

Ответы (1)

Знаете ответ?

Эммануилка · Answer 1

Program gt;

var n, i, j:integer;

a:array[1 ... 100,1 ... 100]of real;

s:real;

begin

readln (n) ;

for i:=1 to n do

for j:=1 to n do

begin

read (a[i, j]) ;

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

end;

writeln (s) ;

end.