Question

Дана прямоугольная матрица размерности MxN "A".Переписать элементы каждого
столбца матрицы "A" в обратном порядке на том же месте (перевернуть каждый столбец
матрицы "A" без использования дополнительного массива).

Answer 1

##

var (m, n) := ReadInteger2;

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

a.Println(4);

Writeln;

for var j := 0 to n - 1 do

 for var i := 0 to (m - 1) div 2 do

   Swap(a[i, j], a[m - i - 1, j]);

a.Println(4)