Question

Нужно решить задачу в Паскале. Умоляю, от этого зависит итоговая оценка!
Напишите программу, которая сортирует по возрастанию все элементы массива с нечётными номерами, а все элементы с чётными номерами – по убыванию. Нумерация элементов массива начинается с единицы.

Входные данные

Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 100000 .

Выходные данные

Программа должна вывести все элементы отсортированного массива в одну строку, разделив их пробелами.

​

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadlnInteger;

 var a := ReadArrInteger(n);

 var s1 := a[0::2].Sorted;

 var s2 := a[1::2].SortedDescending;

 var s3 := s1.Interleave(s2);

 if n.IsOdd then

   s3 := s3 + s1.Last;

 a := s3.ToArray;

 a.Println;

end.