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

Question

Лонгин

5 год назад

ОТВЕТЫ

Slavi

Nov 20, 2020

##

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)

612