Identify Above Average Sale

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Identify Above Average Sale

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 

People

No people associated with this content.

Scroll to Top