Appears on
Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.
Source Code
5 REM IDENTIFY ABOVE AVERAGE SALE 20 DIM S(10) 30 LET T=0 40 FOR I=1 TO 10 50 PRINT "ENTER SALE" 60 INPUT S(I) 70 LET T=T+S(I) 80 NEXT I 90 LET AVG=T/10 100 PRINT 110 FOR I=1 TO 10 120 IF S(I)>AVG THEN GOTO 150 130 PRINT S(I) 140 GOTO 160 150 PRINT S(I);" IS AN ABOVE AVERAGE SALE" 160 NEXT I 170 STOP 180 SAVE "1012%3" 190 RUN