To sort numbers in ascending order (Qbasic Code)
- CLS
FOR i = 1 TO 5
INPUT "Enter the numbers"; n(i)
NEXT i
FOR p = 5 TO 1 STEP -1
FOR q = 1 TO p - 1
IF n(q) > n(q + 1) THEN SWAP n(q), n(q + 1)
NEXT q
NEXT p
FOR j = 1 TO 5
PRINT n(j);
NEXT j
END
