Работа с одномерными массивами в Delphi

[Milaxy]

как можно реализовать такую программу?

В одномерном числовом массиве отсортировать все четные числа по возрастанию, а нечетные по убыванию на своих местах.
Пример:
3284967 после выполнения программы 9246783

Массив должен задаваться в ручную пользователем.

[VIK_aka_TOR]

в сравнении брать не i а i*2 и i*2 + 1
перебирая массив...
метод сортировки выбрали?... наработки есть ?

[BDA]

Например (для четных):

for i := 1 to n - 1 do
  if a[i] mod 2 = 0 then
    for j := i + 1 to n do
      if (a[j] mod 2 = 0) and (a[i] > a[j]) then
      begin
        //обмен местами a[i] и a[j]
      end;