Транспонировать матрицу(Без исп. доп. массивов))

[Doublefaced]

Дана матрица чисел nxn . Транспонировать данную матрицу. При решении данной задачи не использовать дополнительные массивы. Данные должны быть физически перемещены.

Помогите, как транспонировать матрицу без исп. доп. массивов.

[Serge_Bliznykov]

в цикле, все элементы выше главной диагонали попарно меняете с зеркальными элементами
A[1,2] <-> A[2,1]
A[1,3] <-> A[3,1] и т.д.

[Doublefaced]

Можно чуть подробнее?

[Doublefaced]

Чтоб было, вот

program Project236;

{$APPTYPE CONSOLE}

uses
SysUtils;
const n =6;
var a:array[1..n,1..n]of integer;
i,j,x:integer;
begin
Writeln('Ishodnaia matrica:');
for i:= 1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(20);
Write(a[i,j]:4);
end;
Writeln;
end;
Writeln('Transponirovannaia matrica:');
For i:=1 to n do
For j:=1 to n do
If j<i then
begin
x:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=x;
end;
For i:=1 to n do
begin
For j:=1 to n do
Write(a[i,j]:4);
Writeln;
end;
readln
end.

[megachuhancer]

program transp;
{$APPTYPE CONSOLE}
const
   n = 6;
var
   i, j : integer;
   a : array [1 .. n, 1 .. n] of integer;
procedure swapint(var a, b : integer);
begin
   a := a + b;
   b := a - b;
   a := a - b;
end;
begin
   for i := 1 to n do
      for j := 1 to n do
         a[i, j] := random(20);
   for i := 1 to n do
      for j := i + 1 to n do
         swapint(a[i, j], a[j, i]);
end.