QBASIC!!! СОСТАВЬТЕ ПРОГРАММУ НАХОЖДЕНИЯ СУММЫ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ МАССИВА A(X)
QBASIC!!! СОСТАВЬТЕ ПРОГРАММУ НАХОЖДЕНИЯ СУММЫ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ МАССИВА A(X)
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы