Question

Составить программу, которая формирует случайным образом массив NxN целых чисел и упорядочивает по убыванию каждую строку массива. паскаль

Answer 1

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

begin

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

 var a := MatrRandom(n, n, -99, 99);

 a.Println;

 for var i := 0 to n - 1 do

   a.SetRow(i, a.Row(i).OrderDescending.ToArray);

 Writeln;

 a.Println

end.