Нужно составить трансонированую матрицу в Паскале АВС

[Юрий666]

размер матрицы 5х5

[Mad_Cat]

Type TMatrix = record
A:array[1..100,1..100] of real;
n:byte;
end;

procedure Trans(var MX:TMatrix);
var i,j:byte;
b:Tmatrix;
begin
b.n:=mx.n;
       begin
         for i := 1 to mx.n do
           begin
             for j := 1 to mx.n do
               B.a[j, i] := Mx.a[i, j];
           end;
         Mx:=b;
       end;
   end;

[denisbrain]

Сообщение от Юрий666

размер матрицы 5х5

http://netsoftware.ucoz.ru/news/tran.../2012-04-11-26