Транспонирование Марицы Опции

[scorch92]

всем привет!) классный сайт! народ выручайте), пропустил тему матрицы и что то щас вообше не вкуриваю))
Дана квадратная матрица A={A[ij]}, где i,j=1...M, где М- данное число. Получить матрицу B=A^t, T- знак транспонирования( ну тоесть надо матрицу транспонировать) если что -с меня пузырь))))

[Lapp]

Дана квадратная матрица A={A[ij]}, где i,j=1...M, где М- данное число. Получить матрицу B=A^t, T- знак транспонирования( ну тоесть надо матрицу транспонировать)

Вот так:

for i:=2 to n do for j:=1 to i-1 do begin
  t:= a[i,j];
  a[i,j]:= a[j,i];
  a[j,i]:= t
end;