Return mean value of array.
Source position: math.pp line 642
| function Mean( | 
| const data: array of Single | 
| ):Float; | 
| const data: PSingle; | 
| const N: LongInt | 
| ):Float; | 
| const data: array of Double | 
| ):Float; | 
| const data: PDouble; | 
| const N: LongInt | 
| ):Float; | 
| const data: array of Extended | 
| ):Float; | 
| const data: PExtended; | 
| const N: LongInt | 
| ):Float; | 
| const data: PInt64; | 
| const N: LongInt | 
| ):Float; | 
| const data: array of Int64 | 
| ):Float; | 
| const data: PInteger; | 
| const N: LongInt | 
| ):Float; | 
| const data: array of Integer | 
| ):Float; | 
Mean returns the average value of data. The second form accepts a pointer to an array of N values.
None.
| 
 | Return mean and standard deviation of array. | |
| 
 | Return 4 first moments of distribution. | |
| 
 | Return sum of values. | 
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; or:=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.