ПОМОГИТЕ ПОЖАЛУЙСТА,ДАЮ 30 БАЛЛОВ!Составьте программу ,которая формирует массив...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА,ДАЮ 30 БАЛЛОВ!
Составьте программу ,которая формирует массив ,содержащий 12 случайных вещественных чисел ,принадлежащих промежутку от [-10;30] , и подсчитывает произведение всех отрицательных чисел. Вывод в столбец с тремя десятичными знаками.

Answer 1

var
a:array[1..12] of real;
i:integer;
pr:real;
begin
randomize;

pr:=1;for i:=1 to 12 do begin
  a[i]:=random(41)*0.9-10;
  if (a[i] < 0) then
    pr:=pr*a[i]; 
end;
writeln(pr:5:3)
end.

Answer 2

Uses crt;
var a:array[1..12] of real;
    x:integer;
    p:real;
begin
     randomize;
     p:=1;
     for x:=1 to 12 do
     begin
          a[x]:=random(41)*(random(10)/5)-10;
          writeln('a[',x,']:',a[x]);
          if a[x]<0 then p:=p*a[x];<br>     end;
     writeln;
     writeln(p:6:3);
end.