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.
Объяснение:
Решение приведено во вложении.