Задать массив случайным образом, заменить в нём все отрицательные элементы ** элементы с...

Question

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

Answer 1

// 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.

Тестовое решение
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