сортировка

[Flomic]

народ помогите плиз..последняя прога.

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

нужно использовать алгоритм выбора минимального элемента.суть в следущем:
Рассмотрим алгоритм для сортировки элементов массива а в порядке возрастания. Суть этого метода состоит в том, что, просматривая массив от первого элемента до последнего, определяем минимальный элемент. Минимальный элемент переставляется (при необходимости) на первое место массива. Затем описанная процедура повторяется с оставшимися элементами, начиная со второго. И так до тех пор, пока в несортированной части массива не останется один элемент.
Алгоритм может быть реализован и иначе. Просматривая массив от первого элемента до последнего, поочередно сравниваем первый элемент со всеми остальными. Если обнаруживается, что некоторый элемент меньше первого, то элементы переставляются. В результате в первом элементе массива окажется наименьшее из всех данных. Затем описанная процедура повторяется с оставшимися элементами, которые сравниваются уже со вторым элементом массива. И так до тех пор, пока в несортированной части массива не останется один элемент.

[Sazary]

http://pblog.ru/lab/?p=59

А вообще, если у вас уже есть готовый алгоритм, то в чем проблема его реализовать?

[sheka]

9. Впорядкування елементів масиву методом вибору мінімального елемента.
Даний метод основується на тому, що масив переглядається перший раз. Знаходиться мінімальний елемент цього масиву, який міняється місцями з першим елементом масиву.
Другий раз масив переглядається, починаючи з дру¬гого елементу. Знову знаходиться мінімальний елемент, який міняється місцями з другим елементом масиву. Даний процес виконується до тих пір, поки не буде поставлено на місце N-1-ий елемент.

 Program MINSORT; 
 Uses CRT;
 Const N= 10; {кількість елементів масиву} 
Var A:array[l..n] of integer; {опис масиву}
 I,j:integer; {допоміжні змінні}
 Amin:integer; {допоміжна змінна для }
{мінімального елементу масиву}
           l: integer; {порядковий номер}
                            {мінімального елементу масиву} 
      begin 
            ClrScr;
writelnf Введіть елементи масиву');
 for і:=1 to N do begin
   writeln('введи елемент масиву');
    readln(A[i]);
                            end;
writeln('Масив до сортування:'); writeln;
for i:=l to N do write(A[i]:5); 
writeln; 
 for i:=l to N do begin
Amin:=A[i];
L:=i;
                      J:=i+1;
                   While j<=n do
                             begin
                                 If Amin>A[j] then
                                                             Begin
                                                                Amin:=a[j];
                                                                 L:=j;
                                                              End;
                                   J:=j+1;
                              End;
                     A[l]:=A[i];
                    A[i]:=Amin;
                      end;
                writeln;
writeln('Масив після сортування:'); 
writeln;
     for i:=l to N do write(A[i]:5); 
     writeln;
     end.