Все лабораторные работы по паскалю / 3 лаб. Массивы / Program6

uses crt;
const N=5;
var a: array[1..N,1..N] of integer;
i,j,s,s1,c: integer;
Begin
randomize;
Clrscr;
Writeln('Исходная матрица: ');
For i:=1 to N do
For j:=1 to N do
a[i,j]:=random(10);
For i:=1 to N do
begin
For j:=1 to N do Write(a[i,j],' '); Writeln;
end;
// ищем сумму на диагоналях
For i:=1 to N do
For j:=1 to N do
if i=j then s:=s+a[i,j];
For i:=1 to N do
For j:=1 to N do
if (i+j=n+1) then s1:=s1+a[i,j];
if (s>s1) then writeln('На главной диагонале сумма больше ',s,'>',s1)
else writeln('На побочной диагонале сумма больше',s1,'>',s);
//транспонируем матрицу
For i:=1 to N do
For j:=1 to n do
if i<j then
begin
c:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=c;
end;
{ For i:=2 to N do
For j:=1 to i-1 do
begin
c:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=c;
end;}
writeln;
Writeln('Транспонированная матрица:');
For i:=1 to n do
begin
For j:=1 to n do Write(a[i,j],' '); Writeln;
end; readln;
end.