• Pascal
    Напишите программу, которая сортирует первую половину массива по возрастанию, а вторую – по убыванию. При этом элементы из первой половины не должны перемещаться во вторую и наоборот.

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

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

    Примеры
    входные данные
    6
    3 2 1 4 5 6
    выходные данные
    1 2 3 6 5 4

    Нельзя использовать тип Boolean

Ответы 1

  • PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadlnInteger;  var a:=ReadArrInteger(n);  var k:=n div 2;  a:=(a[:k].OrderBy(t->t)+a[k:].OrderByDescending(t->t)).ToArray;  a.Printlnend.Пример63 2 1 4 5 61 2 3 6 5 4
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years