Массивы, turbo pascal Опции

[som]

Дана задача:
Массивы
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
•Сумму положительных элементов массива.
•Произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами.
Упорядочить элементы массива по убыванию.

Я наёшл сумму, min и max. А вот дальше не пойму как. Помогите пожалуйста

Код

program massiv;
var
a:array[1..10] of integer;
z,s,i,y,n,min,max,nommin,nommax:integer;
begin
for i:=1 to 10 do
readln(a[i]);
s:=0;
for i:=1 to 10 do
  if a[i]>0 then s:=s+a[i];

writeln(s);
readln;
max:=a[1];
nommax:=1;
for i:=1 to 10 do
  if max<a[i] then
    begin
     max:=a[i];
     nommax:=i;
    end;
writeln('max=',max);
readln;

min:=a[i];
nommin:=1;
for i:=1 to 10 do
   if min>a[i] then
    begin
     min:=a[i];
     nommin:=i;
    end;
writeln('min=',min);
readln;
end.

[мисс_граффити]

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