Another update from ingydotnet^djgoku

2015-11-18 06:14:39 +00:00 · 2015-11-18 06:14:39 +00:00 · 948b86eafa
commit 948b86eafa
parent 91df62d461
7604 changed files with 108452 additions and 22726 deletions
--- a/Task/Averages-Arithmetic-mean/VBScript/averages-arithmetic-mean.vb
+++ b/Task/Averages-Arithmetic-mean/VBScript/averages-arithmetic-mean.vb
@ -0,0 +1,11 @@
+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))