[Overview][Constants][Types][Classes][Procedures and functions][Index] | Reference for unit 'Math' (#rtl)

# Mean

Return mean value of array

## Declaration

Source position: math.pp line 423

`function Mean(`
`const data: array of Single`
`):Float; function Mean(`
`const data: PSingle;`
`const N: LongInt`
`):Float; function Mean(`
`const data: array of Double`
`):Float; function Mean(`
`const data: PDouble;`
`const N: LongInt`
`):Float; function Mean(`
`const data: array of Extended`
`):Float; function Mean(`
`const data: PExtended;`
`const N: LongInt`
`):Float; function Mean(`
`const data: PInt64;`
`const N: LongInt`
`):Float; function Mean(`
`const data: array of Int64`
`):Float; function Mean(`
`const data: PInteger;`
`const N: LongInt`
`):Float; function Mean(`
`const data: array of Integer`
`):Float;`

## Description

Mean returns the average value of data. The second form accepts a pointer to an array of N values.

## Errors

None.

## See also

meanandstddev |  | Return mean and standard deviation of array
momentskewkurtosis |  | Return 4 first moments of distribution
sum |  | Return sum of values

## Example

    Program Example27;

    { Program to demonstrate the Mean function. }
    { @ should return typed pointer }
    {$T+}
    Uses math;

    Type
      TExArray = Array[1..100] of Float;

    Var
      I : Integer;
      ExArray : TExArray;

    begin
      Randomize;
      for I:=low(ExArray) to high(ExArray) do
        ExArray[i]:=(Random-Random)*100;
      Writeln('Max      : ',MaxValue(ExArray):8:4);
      Writeln('Min      : ',MinValue(ExArray):8:4);
      Writeln('Mean     : ',Mean(ExArray):8:4);
      Writeln('Mean (b) : ',Mean(PExtended(@ExArray[1]),100):8:4);
    end.