Question

Дан одномерный массив R из N элементов, значения которых находятся в диапазоне от -22 до 362. Сложить все отрицательные элементы, стоящие на нечётных местах.
бейсик

Answer 1

INPUT "N? ", n
DIM r(n) AS INTEGER
RANDOMIZE TIMER
   FOR i = 1 TO n 
        r(i) = (RND(1) * 385) - 22   
          PRINT r(i); 
 IF i MOD 2 <> 0 THEN   
    IF r(i) < 0 THEN       
       s = s + (i) 
    END IF   
END IF 
 NEXT i   
PRINT s