To input any five numbers into an array and find the sum of even numbers only. (Qbasic Code)

- CLS

s = 0

FOR i = 1 TO 5

INPUT "Enter the number"; n(i)

a(i) = n(i) MOD 2

IF a(i) = 0 THEN

s = s + n(i)

END IF

NEXT i

PRINT "The sum of the numbers"; s

END