Program for find greater number using Array in QBASIC
CLS
PRINT "Enter  Number to find Greatest one"
FOR i = 1 TO 10
    INPUT n(i)
NEXT i
max = n(1)
FOR i = 2 TO 10
    IF (n(i) > max) THEN
        max = n(i)
    END IF
NEXT i
PRINT "Greatest Number is ="; max
END

  
  
  Program for find smallest number using Array in QBASIC
CLS
PRINT "Enter  Number to find Smallest one"
FOR i = 1 TO 10
    INPUT n(i)
NEXT i
min = n(1)
FOR i = 2 TO 10
    IF (n(i) < min) THEN
        min = n(i)
    END IF
NEXT i
PRINT "Smallest Number is ="; min
END