Data commit

Task/Averages-Arithmetic-mean/GFA-Basic/averages-arithmetic-mean.basic

@@ -0,0 +1,23 @@
+DIM a%(10)
+FOR i%=0 TO 10
+  a%(i%)=i%*2
+  PRINT "element ";i%;" is ";a%(i%)
+NEXT i%
+PRINT "mean is ";@mean(a%)
+'
+FUNCTION mean(a%)
+  LOCAL i%,size%,sum
+  ' find size of array,
+  size%=DIM?(a%())
+  ' return 0 for empty arrays
+  IF size%<=0
+    RETURN 0
+  ENDIF
+  ' find sum of all elements
+  sum=0
+  FOR i%=0 TO size%-1
+    sum=sum+a%(i%)
+  NEXT i%
+  ' mean is sum over size
+  RETURN sum/size%
+ENDFUNC