// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(5,5,-5,14);
a.Println(4); Writeln(4*a.ColCount*'-');
a.SwapCols(0,1);
Writeln('*** Результирующий массив ***');
a.Println(4);
end.
Пример
*** Исходный массив ***
12 10 7 -2 5
14 0 7 1 14
0 -1 7 5 7
-5 -5 -4 -4 9
7 8 -5 12 12
--------------------
*** Результирующий массив ***
10 12 7 -2 5
0 14 7 1 14
-1 0 7 5 7
-5 -5 -4 -4 9
8 7 -5 12 12