В одномерном массиве размерностью 2*n отсортируйте первую половину массива по убыванию, а вторую половину – по возрастанию. Можно использовать любой метод сортировки. Массив заполнить случайными положительными и отрицательными целыми числами.

PascalABC.NETbeginvar n := ReadInteger('n:');var a := ArrRandom(2*n,-99,99); a.Println; a := Arr(a[:n].OrderDescending + a[n:].Order); a.Printend.

Пример работы: