double数组怎么求乘积

double数组如何求乘积？
double数组如何求乘积？
var
  DD: Array of Double;

  SetLength(DD, 5); //也有可能是6 7
  DD[0] := 2.83;
  DD[1] := 3.84;
  DD[2] := 4.82;
  DD[3] := 5.81;
  DD[4] := 6.85;

记得好像有一个函数可以求数组的乘积 
但是百度和google了半天都找不到
谁能告诉我？
谢谢

如果没有这样的函数
请问double数组有什么好办法求乘积？
是动态数据 数据数量不固定的
谢谢

[解决办法]
for 循环直接上啊
[解决办法]

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  DD: Array of Double;  i:integer;  a:Double;   begin  SetLength(DD, 5);   DD[0] := 2.83;  DD[1] := 3.84;  DD[2] := 4.82;  DD[3] := 5.81;  DD[4] := 6.85;  a := 1.0;  for i := 0 to Length(dd)-1 do    a := a * DD[i];  ShowMessage(FloatToStr(a));end;