Помогите решить

[Дарья71]

Помогите решить

Транспонировать матрицу размером A(m,n). Турбо паскаль

 

[Vladimir_S]

Транспонировать матрицу размером A(m,n). Турбо паскаль

Разрешите доложить.
Ваше задание - выполнено!
Впервые в истории человечества!
Я бы не взялся, но - приказ есть приказ!
Разрешите идти?

Var
 A,AT:Array[1..100,1..100] of Real;
 M,N,i,j:Byte;

Begin
 Write('Number of lines = ');
 Readln(M);
 Write('Number of columns = ');
 Readln(N);
 for i:=1 to M do
  for j:=1 to N do
   begin
    write('A[',i,',',j,'] = ');
    readln(A[i,j]);
    AT[j,i]:=A[i,j];
   end;
 writeln;
 writeln('Initial matrix:');
 for i:=1 to M do
  begin
   for j:=1 to N do write(A[i,j]:8:3);
   writeln;
  end;
 writeln('Transposed matrix:');
 for i:=1 to N do
  begin
   for j:=1 to M do write(AT[i,j]:8:3);
   writeln;
  end;
 Readln
End.