begin
var (m, n) := (Random(4, 10), Random(4, 10));
Writeln('*** Исходный массив ***');
var a := MatrRandomReal(m, n, -99, 99);
a.Println(8, 3);
Writeln('*** Полученный массив ***');
a.SwapCols(1, a.ColCount - 1);
a.Println(8, 3)
end.
begin
var (m, n) := (Random(4, 10), Random(4, 10));
Writeln('*** Исходный массив ***');
var a := MatrRandomReal(m, n, -99, 99);
a.Println(8, 3);
Writeln('*** Полученный массив ***');
a.SwapCols(1, a.ColCount - 1);
a.Println(8, 3)
end.