Identify Above Average Sale

   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