Question

Для массива из 10 элементов (задан случайным образом на отрезке от -10 до 10) найти сумму отрицательных по значению элементов, стоящих на нечетных местах. ( Quick basic)

Answer 1

CLS
RANDOMIZE TIMER
DIM a(10)
FOR i=1 TO 10
a(i) = INT(RND * 21) - 10
NEXT i
s=0
FOR i=1 TO 10 STEP 2
IF a(i)<0 THEN s=s+a(i)
NEXT i
PRINT s
END