Question

Задана квадратная матрица. Получить транспонированную матрицу, т.е. матрицу, где
столбцы и строки меняются местами. (Pascal) Закомментировать логику

Answer 1

PascalABC.NET

Ответ:

• begin
• var n := ReadInteger('n:');
• var a := MatrRandom(n,n,-99,99);
• var b := MatrGen(n,n,(i,j)->a[j,i]);
• a.Print;
• Writeln;
• b.Print;
• end.

Пример работы:

Answer 2

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := MatrRandom(n, n, -99, 99);

 a.Println;

 Writeln;

 a := Transpose(a);

 a.Println

end.

Объяснение:

Я не понимаю значение фразы "закомментировать логику", но в любом случае, в решении никакой "логики" нет. Поскольку тут она не нужна.