Add all the A tasks

2013-04-10 14:58:50 -07:00 · 2013-04-10 14:58:50 -07:00 · 051504d65b
commit 051504d65b
parent 2dd7375f96
1608 changed files with 18584 additions and 0 deletions
--- a/Task/Averages-Arithmetic-mean/BASIC/averages-arithmetic-mean.bas
+++ b/Task/Averages-Arithmetic-mean/BASIC/averages-arithmetic-mean.bas
@ -0,0 +1,12 @@
+mean = 0
+sum = 0;
+FOR i = LBOUND(nums) TO UBOUND(nums)
+   sum = sum + nums(i);
+NEXT i
+size = UBOUND(nums) - LBOUND(nums) + 1
+PRINT "The mean is: ";
+IF size <> 0 THEN
+   PRINT (sum / size)
+ELSE
+   PRINT 0
+END IF