11. Дана квадратная матрица порядка M. Найти сумму элементов ее главной и |побочной диагонали. А также суммы элементов дополнительных диагоналей к главной и побочной.
Код
const
nmax=100;
var
a: array[1..nmax,1..nmax] of integer;
n,i,j,suma,suma1,sum1,sum2,sum3,sum4,sum5,sum6: integer;
begin
randomize;
write('размер матрицы n: ');
readln(n);
writeln('матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(150)-50;
write(a[i,j]:5);
end;
writeln;
end;
suma:=0;
suma1:=0;
j:=1;
for i:=1 to n do
suma:=suma+a[i,i];
for i:=n downto 1 do
begin
suma1:=suma1+a[i,j];
j:=j+1;
end;
writeln('главная диагональ: ',suma);
writeln('побочная: ',suma1);
writeln;
for i:=1 to n do
sum1:=sum1+a[i+1,i];
for i:=1 to n do
sum2:=sum2+a[i,i+1];
sum3:=sum2+sum1;
writeln('Дополнительные к главной: ',sum3);
j:=1;
for i:=n downto 2 do
begin
sum4:=sum4+a[i,j+1];
j:=j+1;
end;
j:=1;
for i:=(n-1) downto 1 do
begin
sum5:=sum5+a[i,j];
j:=j+1;
end;
sum6:=sum4+sum5;
writeln('Дополнительные к побочной: ',sum6);
end.