Question

Составьте программу сортировки массива
заполненного случайными числами по
убыванию абсолютных величин (abs(A[i]))

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger;

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

 a.Println;

 a.OrderByDescending(p -> Abs(p)).Print

end.