Question

Ввести с клавиатуры число N – размер квадратной матрицы. Последовательно
по строкам ввести с клавиатуры все элементы матрицы. Отсортировать элементы главной
диагонали по возрастанию. Вывести получивший двумерный массив на экран.

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('N =');

 Writeln('Вводите элементы построчно');

 var a := ReadMatrInteger(n, n);

 Writeln;

 a.Println(4);

 Writeln;

 var v := Range(0, n - 1).Select(i -> a[i, i]).Sorted.ToArray;

 for var i := 0 to v.High do

   a[i, i] := v[i];

 a.Println(4)

end.