home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib41b.dsk / LARGEST.FIND.bas < prev    next >
BASIC Source File  |  2023-02-26  |  517b  |  13 lines
  1. 10  REM  PROGRAM LARGEST.FIND
  2. 20  REM  FIND THE LARGEST NUMBER IN AN ARRAY
  3. 30  DIM A(10): REM  ARRAY CAN BE ANY SIZE
  4. 40  HOME : PRINT "ENTER 10 NUMBERS THAT WILL BE CHECKED": PRINT 
  5. 50  FOR X = 1 TO 10: PRINT "INPUT ";X;" =>";: INPUT A
  6. 60 A(X) = A: NEXT : REM  GET 10 NUMBERS
  7. 70 V1 = A(1): REM  START WITH THE FIRST NUMBER
  8. 80  FOR X = 2 TO 10: REM  KNOWN SIZE OF ARRAY
  9. 90 V2 = A(X): IF V2 >V1  THEN V1 = V2
  10. 100  NEXT : REM  CHECK ALL 10 NUMBERS
  11. 110 VMAX = V1
  12. 120  PRINT : PRINT "THE LARGEST NUMBER IS ";VMAX
  13. 130  END