Дан одномерный массив Q из N элементов, значения которых находятся в диапазоне от -70 до 150. Заменить все элементы, стоящие на местах, кратных 3, на единицы. Вывести на экран исходный и новый массив.

Программа на QBASIC DIM i AS INTEGER, n AS INTEGER CLS INPUT "Введите количество элементов: ", n DIM Q(1 TO n) AS INTEGER RANDOMIZE TIMER PRINT "Исходный массив" FOR i = 1 TO n    Q(i) = INT(RND * 220) - 70    PRINT Q(i) NEXT i PRINT "Результирующий массив" FOR i = 1 TO n    IF i MOD 3 = 0 THEN Q(i) = 1    PRINT Q(i) NEXT i END Тестовое решение: Введите количество элементов: 13 Исходный массив  121  34  27  69  30  95  98  28  136  100  48  120  82 Результирующий массив  121  34  1  69  30  1  98  28  1  100  48  1  82