Averages/Arithmetic mean: Difference between revisions
no edit summary
No edit summary |
|||
Line 1,961:
if (#2) { #1 /= #2 }
Num_Type(#1)</lang>
=={{header|XPL0}}==
<lang XPL0>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);
]</lang>
Output:
<pre>
2.60693
</pre>
=={{header|Yorick}}==
| |||