3. 矩阵转置

3. 矩阵转置

program ex_3;
var
     a : array [1 .. 100, 1 .. 100] of integer;
     n, m, i, j, t : integer;
begin
     readln(n, m);
     for i := 1 to n do
         for j := 1 to m do
             read(a[i, j]);
     readln;
     for j := 1 to m do
     begin
         for i := 1 to n do
             write(a[i, j], ' ');
         writeln;
     end;
     readln;
end.