Составить программу формирующий одномерный массив

[f1wa31]

Составить программу, формирующую одномерный массив, состоящий из N вещественных элементов. Вычислить сумму отрицательных
элементов массива. Упорядочить элементы массива по возрастанию. Вычислить произведение элементов массива, расположенных между макси-
мальным и минимальными элементами.

[Baburek]

Вы забыли приложить свой код. Без него помочь вам нечем.

[Вадим Мошев]

f1wa31, Начните решать задачу самостоятельно. Если что-то не будет получаться, показывайте то, что сделали, задавайте конкретные вопросы.

[newerow1989]

const n=10;
var i,imin,imax:integer;
    s:real;
    d:boolean;
    p:array[1..n] of real;
begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=-10+Random(20)+Random;
      Write(p[i]:3:5,'  ');
   end;
   Writeln;
   Writeln;
   s:=0;
   For i:=1 to n do
      If p[i]<0 then
         s:=s+p[i];
   Writeln(s:3:5);
   imin:=1;
   imax:=1;
   For i:=2 to n do
   begin
      If p[imin]>p[i] then
         imin:=i;
      If p[imax]<p[i] then
         imax:=i;
   end;
   If imin>imax then
   begin
      i:=imin;
      imin:=imax;
      imax:=i;
   end;
   s:=1;
   For i:=imin+1 to imax-1 do
      s:=s*p[i];
   Writeln(s:3:5);
   Repeat
      d:=true;
      For i:=1 to n-1 do
         If p[i]>p[i+1] then
         begin
            d:=false;
            s:=p[i];
            p[i]:=p[i+1];
            p[i+1]:=s;
         end;
   Until d;
   For i:=1 to n do
      Write(p[i]:3:5,'  ');
   Writeln;
   Readln;
end.

[digitalis]

Если пройтись оптимизатором, то можно утоптать наполовину. Генерацию числа и сумму отрицательных легко сделать в одном цикле. Но как решение учебного задания - годится. Иначе препод скажет: "Это ты сам такой вумный - или как?"
Насчет произведения - задание, как всегда, невнятное - вычислить его до сортировки? Тогда в этот же цикл можно вставить и поиск max - min. Иначе бред собачий - тупо множим все от 2 до n-1-го элементов.
Впрочем, к идиотизму учебных задач уже как-то привыкаешь...