Дан одномерный массив 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы