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

INPUT "N? ", nDIM r(n) AS INTEGERRANDOMIZE 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