Question

Упорядочить каждый столбец матрицы по возрастанию. Массив размером МхN, элементы которого задаются датчиком случайных чисел на интервале [-17;26]

Answer 1

// 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.