// PascalABC.NET
begin
var (m, n) := ReadInteger2('Введите m и n:');
var a := MatrRandom(m, n, -17, 26).Println;
Writeln;
for var j := 0 to n - 1 do
a.SetCol(j, a.Col(j).Order.ToArray);
a.Println;
end.
