Average

Definition

function Average(Values: TExtendedArray): Extended;

Source Code

function Average(Values: TExtendedArray): Extended;
var
  i, l: Integer;
begin
  Result := 0;
  l := Length(Values);
  if l = 0 then Exit;
  for i := 0 to l - 1 do
    Result := Result + Values[i];
  Result := Result / l;
end;

Availability

SCAR Divi 3.00 > Current

Description

Calculates the arithmetic mean of a given set of extended floating point values specified by the TExtendedArray Values.

Example

var
  Values: array of Extended;
begin
  Values := [1.2, 1.9, 2.9, 5.55, 8.69];
  WriteLn(Average(Values));
end.

Output:

4,048