begin
Writeln('*** Исходная матрица ***');
var a := MatrRandom(5, 6, -99, 99);
a.Println(4); Writeln(4 * a.ColCount * '-');
Writeln('***Результат ***');
a.SwapCols(0, 1);
a.Println(4)
end.
begin
Writeln('*** Исходная матрица ***');
var a := MatrRandom(5, 6, -99, 99);
a.Println(4); Writeln(4 * a.ColCount * '-');
Writeln('***Результат ***');
a.SwapCols(0, 1);
a.Println(4)
end.