Вариант 1. Задана матрица вещественных чисел размерности m*n. Не используя вспомогательного массива, транспонировать данную матрицу. Размерность матрицы и значения ее элементов ввести с клавиатуры.

Var

a: array[,] of integer;

i, j, t, n, m, k: integer;

begin

write ('Введите размерность матрицы m и n: ') ;

readln (m, n) ;

if n>m then k:=n else k:=m;

setlength (a, k+1, k+1) ;

writeln ('Вводите элементы матрицы по одному: ') ;

for i : = 1 to m do

for j:=1 to n do

readln (a[i, j]) ;

for i:=1 to k do

for j:=i to k do

begin

t:=a[i, j];

a[i, j]:=a[j, i];

a[j, i]:=t;

end;

writeln;

writeln ('Транспонированная матрица: ') ;

for i : = 1 to n do

begin

for j:=1 to m do

write (a[i, j]:4) ;

writeln;

end;

end.