RosettaCodeData/Task/Averages-Arithmetic-mean/BASIC/averages-arithmetic-mean.basic

13 lines
211 B
Plaintext

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