Question

В массиве A[1..5,1..5] поменять местами строки и столбцы. Даю 30 баллов. Пожалуйста)

Answer 1

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(5,5,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('*** Транспонированный массив ***');
  a:=Transpose(a);  a.Println(4)
end.

Пример
*** Исходный массив ***
  40 -31  16 -27  -3
  34 -37   0 -33  -8
 -16 -44 -38  19 -22
 -32  36 -22  42 -17
 -31  20  36   8   9
--------------------
*** Транспонированный массив ***
  40  34 -16 -32 -31
 -31 -37 -44  36  20
  16   0 -38 -22  36
 -27 -33  19  42   8
  -3  -8 -22 -17   9