Массивы
В одномерном массиве, состоящем из п вещественных элементов, вычислить:
•Сумму положительных элементов массива.
•Произведение элементов массива, расположенных между максимальным по мо¬дулю и минимальным по модулю элементами.
Упорядочить элементы массива по убыванию.
Я наёшл сумму, 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.