home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib41b.dsk / SMALLEST.FIND.bas < prev    next >
BASIC Source File  |  2023-02-26  |  528b  |  13 lines
  1. 10  REM  PROGRAM SMALLEST.FIND
  2. 20  REM  FIND THE SMALLEST 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  CHECK THE REST OF THE ARRAY
  9. 90 V2 = A(X): IF V2 <V1  THEN V1 = V2
  10. 100  NEXT : REM  CHECK ALL 10 NUMBERS
  11. 110 VMIN = V1
  12. 120  PRINT : PRINT "THE SMALLEST NUMBER IS ";VMIN
  13. 130  END