Anonymous user
Averages/Arithmetic mean: Difference between revisions
→{{header|Vala}}
m (→{{header|LFE}}: Fixed sub-heading formatting and added more usage for n-arity example) |
|||
Line 2,720:
0
</pre>
=={{header|VBScript}}==
<lang vb>
Function mean(arr)
size = UBound(arr) + 1
mean = 0
For i = 0 To UBound(arr)
mean = mean + arr(i)
Next
mean = mean/size
End Function
'Example
WScript.Echo mean(Array(3,1,4,1,5,9))
</lang>
{{Out}}
<pre>3.83333333333333</pre>
=={{header|Vedit macro language}}==
| |||