Question

Дан вектор размером n, отсортировать первую половину вектора по убыванию

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var V := ArrRandom(ReadInteger('n='), -50, 50);

 V.Println;

 var k := V.Length;

 k := (k.IsOdd ? (k + 1) : k) div 2;

 V := (V[:k].OrderByDescending(t -> t) + V[k:]).ToArray;

 V.Println;

end.

Пример

n= 13

27 -32 47 -45 33 28 -39 20 26 3 19 -35 5

47 33 28 27 -32 -39 -45 20 26 3 19 -35 5

Answer 2

Чтобы отсортировать первую половину вектора размером n по убыванию, можно использовать различные алгоритмы сортировки, такие как сортировка вставками или сортировка слиянием. Вот пример реализации сортировки вставками на языке Python:

pythonCopy code
def sort_first_half_descending(vector):
    n = len(vector)
    half = n // 2

    for i in range(1, half):
        key = vector[i]
        j = i - 1
        while j >= 0 and vector[j] < key:
            vector[j + 1] = vector[j]
            j -= 1
        vector[j + 1] = key

    return vector

Пример использования:

pythonCopy code
vector = [5, 2, 9, 1, 7, 3, 8, 6, 4]
sorted_vector = sort_first_half_descending(vector)
print(sorted_vector)

Этот код сортирует первую половину вектора [5, 2, 9, 1] по убыванию и выводит результат:

csharpCopy code
[9, 5, 2, 1, 7, 3, 8, 6, 4]