Функция Sum – находит сумму элементов массива, состоящего из чисел с плавающей точкой

Функция Sum в Delphi находит сумму элементов массива, состоящего из чисел с плавающей точкой.

Функция Sum: Пример кода

var
  doubles : array[0..5] of double;

begin
  // Заполните массива чисел
  doubles[0] :=  25.0;
  doubles[1] := 100.5;
  doubles[2] :=  -4.125;
  doubles[3] :=  75.0;
  doubles[4] := -62.0;
  doubles[5] :=   0.0;

  ShowMessage('Сумма значений массива = '+FloatToStr(Sum(doubles)));
  ShowMessage('12.3 + 45.6 = '+FloatToStr(Sum([12.3, 45.6])));
end;

Main Menu