Разработать программу вычисления массива значений функции - Turbo Pascal

Формулировка задачи:

В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. Сумму отрицательных элементов массива.Массив разместить в динамической памяти 2. Произведение элементов массива, расположенных между максимальным и минимальным элементами.Массив разместить в динамической памяти

Решение задачи: «Разработать программу вычисления массива значений функции»

textual
                            Листинг программы 
                        

                            const n=10;
type arr=array[1..n]  of real;
var
  a:^arr;
  i:integer;
  s:real;
begin
  randomize;
  new(a);
  s:=0.0;
  for i:=1 to n do begin
    a^[i]:=100*random-50;
    write(a^[i]:8:2);
    if a^[i]<0 then s:=s+a^[i];
  end;
  writeln;
  writeln('Summa otricatelnyh elementov=',s:0:2);
  dispose(a);
  readln;
end.
                        