транспонирование прямоугольной матрицы

[che91]

Нужно, это великое задание нашего деспота, вот

[Aveleznerd]

Искала в интернете решение задачи по транспонированию прямоугольной матрицы. Ваш форум мне помог решить!!! Спасибо!
Так как целиком верное решение я не нашла - решила выложить для тех кто ищет:

ТРАНСПОНИРОВАНИЕ ПРЯМОУГОЛЬНОЙ МАТРИЦЫ

Program MR_RM;

Var


MR, RM : Array [1..20, 1..20] Of Integer;


N,M: Integer;


i, j: Integer;


Begin


WriteLn ('PASCAL: transponirovanie');


Write ('enter n<=20! n=');
ReadLn (N);

Write ('enter m<=20! m=');
ReadLn (M);


WriteLn ('enter element matr: ');



For i := 1 To N Do

For j := 1 To M Do

Begin

Write ('MR[', i, ',', j, '] = ');

ReadLn (MR [i, j] );

End;

WriteLn;
WriteLn('MR:');

For i := 1 To N Do

Begin

For j := 1 To M Do

Write (MR [i, j] : 5);

WriteLn;

End;

For i := 1 To 20 Do

For j := 1 To 20 Do

RM [i, j] := MR [j, i];
WriteLn;
WriteLn('RM: ');

For i := 1 To M Do

Begin

For j := 1 To N Do

Write (RM [i, j] : 5);

WriteLn;

End;

ReadLn;

End.