Pascal Напишите программу, которая сортирует первую половину массива по возрастанию, а вторую –…
Pascal
Напишите программу, которая сортирует первую половину массива по возрастанию, а вторую – по убыванию. При этом элементы из первой половины не должны перемещаться во вторую и наоборот.
Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 и N – чётное число.
Выходные данные
Программа должна вывести в одной строке элементы все массива, отсортированного нужным образом, разделив их пробелами.
Примеры
входные данные
6
3 2 1 4 5 6
выходные данные
1 2 3 6 5 4
Сортировать первую половину по возрастанию и вторую по убыванию | Комплект 2
Учитывая массив целых чисел, отсортируйте первую половину массива в порядке возрастания, а вторую половину — в порядке убывания.
Примеры:
Мы обсудили решение, которое печатает только в необходимом порядке в поле Сортировать первую половину по возрастанию и вторую половину по убыванию | Комплект 1
Simple Approach
The idea is simple, we sort the first half in increasing order and the second half in decreasing using the library function. Most of the languages like Java, C++ provide provision to sort a subarray in a specified order. In this post, a different solution is discussed that modifies the original array.
Напишите программу которая сортирует первую половину массива по возрастанию а вторую по убыванию
ровно через час буду
вот, задача решена!
//Обьявляем дополнительные переменные и главный массив, а также два дополнительных — они будут «половинками».
var
a, b, c: array [1..100] of longint;
i, min, n, j, t: longint;
begin
//Читаем количество элементов в нашем массиве.
readln(n);
//Читаем массив.
for i := 1 to n do read(a[i]);
//Заполняем первую «половинку».
for i := 1 to n div 2 do b[i] := a[i];
//Заполняем вторую «половинку». Но раз это уже вторая «половинка» главного массива, то и
//цикл теперь должен начинаться со второй части массива, а заканчиваться уже в его конце.
for i := n div 2 + 1 to n do c[i — n div 2] := a[i];
//Теперь отсортируем первую «половинку» методом выбора. Идея этого метода
//основывается на том, что мы ищем минимальный среди неотсортированных элемент,
//а затем просто swap-аем его с тем, который стоит сразу после отсортированных.
for i := 1 to (n — 1) div 2 do
begin
min := i;
for j := i + 1 to n div 2 do
if b[min] > b[j] then
min := j;
if min <> i then begin
t := b[i];
b[i] := b[min];
b[min] := t;
end;
end;
//Затем вторую точно также, только стоит обратить внимание на сравнения.
//Так как надо отсортировать по убыванию, то теперь сравнение перед «swap»-ом
//будет другим.
for i := 1 to (n — 1) div 2 do
begin
min := i;
for j := i + 1 to n div 2 do
if c[min] < c[j] then
min := j;
if min <> i then begin
t := c[i];
c[i] := c[min];
c[min] := t;
end;
end;
//А теперь просто по очереди выводим готовые «половинки», не забывая ставить
//пробел после вывода каждого элемента.
for i := 1 to n div 2 do write(b[i], ‘ ‘);
for i := 1 to n — n div 2 do write(c[i], ‘ ‘);
end.