Question

Заполните квадратную матрицу случайными числами и выполните ее транспортирование: так называется процедура,в результате которой строки матрицы становятся столбцами, а столбцы-строками.

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('*** Транспонированная матрица ***');
  a:=Transpose(a); a.Println(4);
end.