REM to get 10 numbers and print only the even numbers with their sum CLS DIM n(10) FOR i = 1 TO 10 INPUT n(i) NEXT i FOR i = 1 TO 10 IF n(i) MOD 2 = 0 THEN PRINT n(i) s = s + n(i) END IF NEXT i PRINT "sum of even numbers="; s END