Дан одномерный массив 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