17 lines
284 B
Text
17 lines
284 B
Text
code CrLf=9;
|
|
code real RlOut=48;
|
|
|
|
func real Mean(A, N);
|
|
real A; int N;
|
|
real S; int I;
|
|
[if N=0 then return 0.0;
|
|
S:= 0.0;
|
|
for I:= 0 to N-1 do
|
|
S:= S+A(I);
|
|
return S/float(N);
|
|
]; \Mean
|
|
|
|
real Test;
|
|
[Test:= [1.0, 2.0, 5.0, -5.0, 9.5, 3.14159];
|
|
RlOut(0, Mean(Test, 6)); CrLf(0);
|
|
]
|