8 lines
337 B
Text
8 lines
337 B
Text
10 LET SUM = 0
|
|
20 FOR RAINFALL = 1 TO 1E38
|
|
30 INPUT "ENTER RAINFALL (AS AN INTEGER, OR 99999 TO QUIT): ";I
|
|
40 IF I = 99999 THEN END
|
|
50 IF I < > INT (I) THEN PRINT "?REENTER, MUST BE AN INTEGER": GOTO 30
|
|
60 LET SUM = SUM + I
|
|
70 PRINT " THE NEW AVERAGE RAINFALL IS "SUM / RAINFALL
|
|
80 NEXT RAINFALL
|