Люди, помогите решить задачу, а то я с этими процедурами-функциями никак разобраться не могу.


Задача:
Дан массив натуральных чисел. Упорядочить его элементы по убыванию количества их простых делителей методом обмена.

Ну, если учесть, что "сортировка методом обмена" - простой "пузырек", то ... Смотри:
Как ты сортируешь массив по возрастанию значений элементов? Вот так, как показано по ссылке, правда?
FAQ: Методы сортировки

А теперь немного изменим программу, чтобы она делала то, что нужно тебе:

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

Function GetDivCount(X: Integer): Integer;
Begin
  { Сама функция }
End;

Type
  arrType = Array[1 .. n] Of Integer;

Procedure Bubble(Var ar: arrType; n: integer);
Var i, j, T: Integer;
Begin
  For i := 1 To n Do
    For j := n DownTo i+1 Do
      { Сравнивать будем НЕ сами элементы, а количество простых делителей }
      If GetDivCount(ar[Pred(j)]) < GetDivCount(ar[j]) Then Begin

        { А вот менять местами - именно элементы массива... }
        T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T

      End
End;

Вот и все...

Спасибо за помощь