Дан одномерный массив q из n элементов, значения которых находятся в диапазоне от -70 до 150. заменить все элементы, стоящие на местах, кратных 3, на единицы. вывести на экран исходный и новый массив.
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
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