double数组如何求乘积？

Question

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数组有什么好办法求乘积？
是动态数据 数据数量不固定的
谢谢

Answer 1

就是一维数组里边的数据相乘
  DD[0] := 2.83;
  DD[1] := 3.84;
  DD[2] := 4.82;
  DD[3] := 5.81;
  DD[4] := 6.85;DD[0]*DD[1]*....后来自己看个循环求了
记得好像有函数可以直接求数组相乘的结果的

Answer 2

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;就是這個？？？！！
應該不會吧，，，