Транспонирование без вспомогательной матрицы Опции

[liash-7]

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

[Гость]

Я написала, но только по-читерски=)

  if m>n then t:=m else t:=n;
   for i:=1 to t-1 do
      for j:=i+1 to t do begin
         sub:=a[i,j];
         a[i,j]:=a[j,i];
         a[j,i]:=sub;
      end;
  ...
   for i:=1 to n do begin
      for j:=1 to m do write(a[i,j]:3);
      writeln;
   end;

Получается, что транспонируется квадратная матрица, а потом уже выводится то, что надо. Не знаю, прокатит ли=)