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
0 Comments
Thank You ! For your love