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

program zz1;

const n=3; // задаем размерность матрицы

var i, j, k: integer;

m: array[1..n,1..n] of integer;

begin

for i:=1 to n do begin

for j:=1 to n do begin

m[i, j]:=random(10); //заполнение матрицы случайными числами и вывод на экран

write(m[i, j]:3);

end;

writeln;

end;

for i:=1 to n do begin // проверка элементов выше побочной диагонали

for j:=1 to n do begin

if j>n-i+1 then k:=k + m[i,j]; // проверяем элемент ниже побочной диагонали

end;

end;

write(' сумма элементов ниже побочной диагонали = ', k); // вывод ответа

end.