Составьте пожалуйста ** языке QBasic

Question

Составьте пожалуйста на языке QBasic

---

Answer 1

DIM x(20) AS INTEGER
RESTORE
FOR i = 1 TO 20
    READ x(i)
NEXT
s = 0
FOR i = 1 TO 20
    IF x(i) > 0 THEN
        s = s + x(i)
    END IF
NEXT
PRINT "s="; s
END
DATA -3,9,-8,6,6,5,0,-7,9,18
DATA 4,-7,9,7,5,-9,-6,6,3,8