18 lines
353 B
Text
18 lines
353 B
Text
|
LET n = 0
|
||
|
|
LET sum = 0
|
||
|
|
|
||
|
|
DO
|
||
|
|
PRINT "Enter integral rainfall (99999 to quit): "
|
||
|
|
INPUT i
|
||
|
|
IF i = 99999 THEN
|
||
|
|
EXIT DO
|
||
|
|
ELSEIF (i < 0) OR (i <> INT(i)) THEN
|
||
|
|
PRINT "Must be an integer no less than 0, try again."
|
||
|
|
ELSE
|
||
|
|
LET n = n + 1
|
||
|
|
LET sum = sum + i
|
||
|
|
PRINT " The current average rainfall is"; sum / n
|
||
|
|
END IF
|
||
|
|
LOOP
|
||
|
|
END
|