QBASIC Program to find total sum of even number using “Array”

      Program for find total sum of even number using “Array” in QBASIC

CLS

PRINT "Total sum of even number between 0 to 10"

sum = 0

PRINT "Enter 10 number"

FOR i = 1 TO 10

    INPUT n(i)

NEXT i

FOR i = 1 TO 10

    IF (n(i) MOD 2 = 0) THEN

        sum = sum + n(i)

    END IF

NEXT i

PRINT "sum ="; sum

END