Задать массив случайным образом, заменить в нём все отрицательные элементы на элементы с противоположным знаком(например, -5 на 5, -9 на 9), отсортировать массив по неубыванию. вывести элементы исходного и получившегося массива.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016 // Также проверено в WDE: http://pascalabc.net/WDE begin var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println; a.Transform(x->-x); a:=a.Sorted.ToArray; a.Println end.
// Также проверено в WDE: http://pascalabc.net/WDE
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a.Transform(x->-x);
a:=a.Sorted.ToArray; a.Println
end.
Тестовое решение
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