Дана квадратная матрица а размером NxN. Элементы вводятся с клавиатуры. Отыскать

Ответ:

uses crt;

const Max=100;

var Matrix:array[1..Max,1..Max] of integer;

   i,j,Sum1,Sum2,m:integer;

begin

 clrscr;

 randomize;

 repeat

   writeln('Введите размерность квадратной матрицы ');

   readln(m);

 until m in [1..Max];

 for i:=1 to m do

   for j:=1 to m do

     Matrix[i,j]:=random(25);//при необходимости поменяйте на ручной ввод

 for i:=1 to m do

   begin

     for j:=1 to m do

       write(Matrix[i,j]:4);

       writeln;

   end;

 Sum1:=0; Sum2:=0;

 for i:=1 to m do

   begin

     Sum1:=Sum1+Matrix[i,i];

     Sum2:=Sum2+Matrix[m-i+1,i];

   end;

 writeln('Сумма элементов главной диагонали:',Sum1);

 writeln('Сумма частей побочной диагонали:',Sum2);

 readln;

end.

Объяснение: