Дан одномерный массив Q из N элементов, значения которых находятся в диапазоне от -70 до 150. Заменить все элементы, стоящие на местах, кратных 3, на единицы. Вывести на экран исходный и новый массив.
Дан одномерный массив 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
Не нашли ответ?
Похожие вопросы