Сортировка массива. Опции

[dff]

Отсортировать элементы с нечетными значениями в порядке
– возрастания, если сумма элементов с четными значениями больше суммы эле-ментов с нечетными;
– убывания, если сумма элементов с четными значениями меньше суммы эле-ментов с нечетнымими.

Вопрос,как из массива выделить четные и нечетные элементы для дальнейшего сумирования?

[IUnknown]

как то так?

Лучше - вот так:

s_even := 0;  // сумма четных
s_odd := 0; // сумма нечетных
for i := 1 to n do
   if odd(a[ i ]) then // нечетный элемент ?
      s_odd := s_odd + a[ i ]
   else
      s_even := s_even + a[ i ];