одномерный массив в паскале

[fs_x]

В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) сумму отрицательных элементов массива;
2) произведение элементов массива, расположенных между максимальным и минимальным элементами.
Упорядочить элементы массива по возрастанию!


Помогите набрать на турбопаскале!

[Stilet]

const n=1000;
var a:array[1..n] of double;i:integer; p,neg,maxi,mini:Double;
begin mini:=1; maxi:=1;p:=1;
 for i:=1 to n do begin
  a[i]:=25-random(100)/50.5;
  if a[maxi]<a[i] then maxi:=i else if a[mini]>a[i] then mini:=i;
  if a[i]<0 then neg:=neg+a[i];
 end;
 if maxi>mini then for i:=mini to maxi do p:=p*a[i] else
 for i:=mini downto maxi do p:=p*a[i];
end.

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

[fs_x]

begin
mini:=1; {тут мне ошибку выдает (Error 116: Must be in 8087 mode to compile this.(Ошибка 116: Должно быть, в 8087 режиме, чтобы составить этот.))}
maxi:=1;
p:=1;

что сделать?

[Stilet]

Полазить по настройкам паскаля и выставить режим 8087.

[максим2012]

может найдётся ктота кто паможэт и мне
должен на завтра атнести но не панимаю ничево в паскале
1)В массиве целых чисел N должны быть введены сначала все отрицательные числа и нули, затем положительные диапазон номеров [-20 .. 10] массива T, сохраняя их порядок. заранее спасибо

[Leshii]

Ничего не понимаете, и завтра надо отнести?( вам во фриланс )
Ну прям слоган эдакий получился.
максим2012, создайте новую тему, и грамотно опишите проблему.