Сортировка. Способ выбора. Уровень A. Массив содержит четное количество частей. Напишите

хихи... хорошо, у меня сестра плачет, а для вас на данный момент эту отправлю, а потом где-то через часик следующую

А вы не забудите?

А то крайне как необходимы мне эти задачки

Я сама та не справлюсь

не забуду. святыми лисичками зарекаюсь

ровно через час буду

хорошо

я тут

сестру выгуляла

вот, задачка решена!

//Обьявляем дополнительные переменные и главный массив, а также два дополнительных - они будут "половинками".
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];
 
  //Наполняем вторую "половинку". Но раз это теснее 2-ая "половинка" основного массива, то и
  //цикл сейчас обязан начинаться со 2-ой доли массива, а кончаться уже в его конце.
  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] gt; b[j] then
        min := j;
    if min lt;gt; 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] lt; c[j] then
        min := j;
    if min lt;gt; 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.