Даны целые числа a1,…a50. Получить последовательность b1,…,b50, которая отличается от исходной последовательности тем, что все нечетные элементы удвоены.
Даны целые числа a1,…a50. Получить последовательность b1,…,b50, которая отличается от исходной последовательности тем, что все нечетные элементы удвоены.
Гость
Ответ(ы) на вопрос:
ГостьVBА Microsoft Excel.
Массив а заполняется с использованием случайных чисел. Результаты выводятся на первый лист рабочей книги.
Option Base 1
Sub aaa()
Dim a(50), b(50)
Randomize Timer
Cells(1, 1) = "a(i)"
Cells(1, 2) = "b(i)"
For i = 1 To 50
a(i) = Int(201 * Rnd - 100)
b(i) = 2 * a(i)
Cells(i + 1, 1) = a(i)
Cells(i + 1, 2) = b(i)
Next i
End Sub
Не нашли ответ?
Похожие вопросы