Помогите пожалуйста!!! С использованием функции Random сформировать одномерный массив

[Vanya_www_333]

С использованием функции Random сформировать одномерный массив, состоящий из n вещественных элементов в котором элементы случайным образом принимают положительный или отрицательный знак и значение от -5 до 5. для заданного числа y такого что amin<y<amax, вычислить:
1. сумму элементов массива, значения модуля которых меньше y.
2. произведение остальных элементов
Помогите Пожалуйста
Заранее Благодарю.

[Alex21]

Вот так. Вещественные числа с одним знаком после запятой:

program Project2;
{$APPTYPE CONSOLE}{сделано на консольном приложении}
uses
  SysUtils;
const
N=10;{размер массива}
var i,y:integer;
    sum,pr:extended;
    A:array[1..N] of real;
procedure Create;{Заполняем массив}
begin
Randomize();
  WriteLn('Greate massiv A');
  for i:= 1 to N do
    begin
      A[i]:=(Random(5)-Random(5))+(random(10)/10);
{если нужна бОльшая разрядность увеличте с 10/10 до 100/100 и т.д. 
и не забудьте поставить в Write(:2) цифру 2 при выводе на экран}
      Writeln(A[i]:1:1,' ');
    end;
    Writeln('');
end;
procedure SumPr(y:integer); {Ищем сумму и произведение}
begin
Sum:=0;
Pr:=1;
  for i:= 1 to N do
    begin
      if abs(A[i])<y then Sum:=Sum+A[i] else
        Pr:=Pr*A[i];
    end;
end;
begin
 
Create;
Write('Enter Y : ');
ReadLn(y);
SumPr(y);
{Вывод результатов}
if Sum=0 then Writeln('4isel < ',y,' - NET, Sum = ',Sum:1:1)
  else WriteLn('Sum 4isel, < ',y,' = ',Sum:1:1);
if Pr=1 then Writeln('ispolzovani vse 4isela.')
  else WriteLn('Proizvedenie ostalnih = ', Pr:1:1);
readln;
end.