массив в паскале

[ELV!S]

Дана квадратная матрица A={A i j}, i, j=1,...,M, где М - данное число. Получить матрицу В=А^T (где Т - знак транспонирования) и выдать ее на экран.

[alex_fcsm]

for i:=1 to m do
 for j:=1 to m do
  b[i,j]:=a[j,i];