Задать массив случайным образом, заменить в нём все отрицательные элементы на элементы с противоположным знаком(например, -5 на 5, -9 на 9), отсортировать массив по неубыванию. Вывести элементы исходного и получившегося массива.
Задать массив случайным образом, заменить в нём все отрицательные элементы на элементы с противоположным знаком(например, -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.
Тестовое решение
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
Не нашли ответ?
Похожие вопросы