Задать массив случайным образом, заменить в нём все отрицательные элементы на элементы с противоположным знаком(например, -5 на 5, -9 на 9), отсортировать массив по неубыванию. Вывести элементы исходного и получившегося массива.

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016// Также проверено в WDE: http://pascalabc.net/WDEbegin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  a.Transform(x->-x);  a:=a.Sorted.ToArray; a.Printlnend.Тестовое решениеn= 15-6 11 86 67 95 18 -57 8 79 90 45 72 -82 -50 31-95 -90 -86 -79 -72 -67 -45 -31 -18 -11 -8 6 50 57 82