Заменить значение каждого элемента каждой строки массива А на значение

соответствующего элемента соответствующего столбца массива В (1-й элемент 1-й

строки массива А на 1-й элемент 1-го столбца массива В, 2-й элемент 1-й строки

массива А на 2-й элемент 1-го столбца массива В и т. д.)

Var i, j, n: integer;

a: array[,] of real;

begin

write ('n = ') ; readln (n) ;

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

randomize;

writeln ('исходная матрица:') ;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i, j]:=random (-20,20) ;

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

end;

writeln;

end;

//транспонирование матрицы

for i:=1 to n-1 do

for j:=i+1 to n do swap (a[i, j], a[j, i]) ;

//вывод на экран

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

for i:=1 to n do

begin

for j:=1 to n do write (a[i, j]:4) ;

writeln;

end;

end.

n = 4

исходная матрица:

-5 16 - 10 5

-4 - 20 6 14

-2 10 - 4 - 7

-16 1 - 9 13

транспонированная матрица:

-5 - 4 - 2 - 16

16 - 20 10 1

-10 6 - 4 - 9

5 14 - 7 13