Program for find average of number using “Array” in QBASIC

CLS
PRINT "Finding Average "
FOR i = 1 TO 10
    INPUT n(i)
NEXT i
FOR i = 1 TO 10
    sum = sum + n(i)
NEXT i
average = sum / 10
PRINT "Average  ="; average
END