Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
m (→{{header|LFE}}: Fixed sub-heading formatting and added more usage for n-arity example) |
|||
| Line 2,720: | Line 2,720: | ||
0 |
0 |
||
</pre> |
</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}}== |
=={{header|Vedit macro language}}== |
||