Дана вещественная квадратная матрица А, размерностью 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.