home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / average.bas < prev    next >
Encoding:
BASIC Source File  |  1984-03-15  |  384 b   |  8 lines
  1. 10 DATA 76,93,88,69,100,75,84,999
  2. 20 READ NUM:IF NUM=999 THEN GOTO 100 'get a number, check if last number
  3. 30 COUNT=COUNT+1        'count the number of numbers
  4. 40 SUM=SUM+NUM          'find the sum of the numbers
  5. 50 GOTO 20              'get the next number
  6. 100 PRINT "The sum of the";COUNT;"numbers is";SUM
  7. 110 PRINT "and the average is";SUM/COUNT
  8.             'get the next n