QBASIC!!! СОСТАВЬТЕ ПРОГРАММУ НАХОЖДЕНИЯ СУММЫ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ МАССИВА A(X)

Question

QBASIC!!! СОСТАВЬТЕ ПРОГРАММУ НАХОЖДЕНИЯ СУММЫ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ МАССИВА A(X)

Answer 1

INPUT "X=", X
DIM A(X)
s = 0
FOR i = 0 TO X - 1
   INPUT "A(X)=", A(X)
   IF A(X) > 0 THEN s = s + A(X)
NEXT i
PRINT "s="; s
END

Тестовое решение:
X=6
A(X)=-3
A(X)=4.5
A(X)=2
A(X)=-7
A(X)=0
A(X)=2.1
s= 8.6

Comments

спасибо большое

---

пожалуйста