Дана вещественная квадратная матрица А, размерностью 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 jgt;n-i+1 then k:=k + m[i,j]; // проверяем элемент ниже побочной диагонали

   end;

 end;

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

end.