как сделать сортировку для отрицательных элементов?

[Irisk]

Дана последовательность x1,x2,...,x20. Требуется
расположить отрицательные элементы последовательности в
порядке убывания.

выполнять модифициpованным методом
пpостого выбоpа

uses crt;
var a:array[1..5] of integer;
i,j,buf,imin:integer;
begin
clrscr;
for i:=1 to 5 do begin
write('vv el');
read(a[i]);end;
for i:=1 to 5-1 do begin
imin:=i;
for j:=i+1 to 5 do
if a[j]<a[imin] then imin:=j;
buf:=a[i];
a[i]:=a[imin];
a[imin]:=buf;
end;
for i:=1 to 5 do
write(a[i],' ');
readln;
end.

как сделать сортировку для отрицательных элементов?

[westlinex]

Вот исправила вроде сортирует.
Проверяй! Сортирует только отрицательные, положительные оставляет на прежнем месте

Program sort;
uses crt;
var a:array[1..5] of integer;
i,j,buf,imin:integer;
begin
clrscr;
for i:=1 to 5 do begin
write('vvedite element a(',i,')');
read(a[i]);end;
for i:=1 to 5 do begin
imin:=i;
for j:=i+1 to 5 do
if (a[j]>a[imin]) and (a[j]<0) then imin:=j;
buf:=a[i];
a[i]:=a[imin];
a[imin]:=buf;
end;
for i:=1 to 5 do
write(a[i],' ');writeln; readln;
readln;
end.

[Irisk]

Что то не получается
-1 0 2 -17 29
-17 -1 2 0 29

[_-Re@l-_]

Используйте обычную сортировку методом пузырька, вам хватит.
P.S. Google рулит.

[Irisk]

выполнять модифициpованным методом
пpостого выбоpа

[westlinex]

смотри что у меня получается

Program sort;
uses crt;
var a:array[1..5] of integer;
i,j,buf,imin:integer;
begin
clrscr;
for i:=1 to 5 do begin
write('vvedite element a(',i,')');
read(a[i]);end;
for i:=1 to 5 do begin
imin:=i;
for j:=i+1 to 5 do
if (a[j]>a[imin]) and (a[j]<0) then imin:=j;
buf:=a[i];
a[i]:=a[imin];
a[imin]:=buf;
end;
for i:=1 to 5 do
writeln('a[',i,']',a[i],' ');writeln; readln;
readln;
end.

на экране ввожу элементы
a[1]=-9
a[2]=2
a[3]=-3
a[4]=7
a[5]=-5
выводит
a[1]=-3
a[2]=2
a[3]=-5
a[4]=7
a[5]=-9

[Irisk]

Все получается,спасибо большое!!!!