Нужно решить задачу в Паскале. Умоляю, от этого зависит итоговая оценка!
Напишите программу, которая сортирует по возрастанию все элементы массива с нечётными номерами, а все элементы с чётными номерами – по убыванию. Нумерация элементов массива начинается с единицы.
Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 100000 .
Выходные данные
Программа должна вывести все элементы отсортированного массива в одну строку, разделив их пробелами.
Напишите программу, которая сортирует по возрастанию все элементы массива с нечётными номерами, а все элементы с чётными номерами – по убыванию. Нумерация элементов массива начинается с единицы.
Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 100000 .
Выходные данные
Программа должна вывести все элементы отсортированного массива в одну строку, разделив их пробелами.
More Questions From This User See All
Answers & Comments
===== 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.