Даны целые числа a1,…a50. Получить последовательность b1,…,b50, которая отличается от исходной последовательности тем, что все нечетные элементы удвоены.

НЕ О БЕДЕНЕ О РОЗНИЭТО НЕ ПОБЕДАЭТО ВСЕ ОЧТО ПРАВДА В СЕРДЦЕЭТО НЕ ПОТЕРИЭТО ВСЕ ОБЪЕДИНЕНИЕ НАЦИЙЭТО НЕ ПРО ВОЙНУНО МАНЯЩИЙ МИРНЕ О БЕДЕНЕ О РОЗНИВСЕГО В ОЛИМПИАДЕ"ИГРА ЖИЗНИ"

VBА Microsoft Excel.Массив а заполняется с использованием случайных чисел. Результаты выводятся на первый лист рабочей книги.Option Base 1Sub 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 iEnd Sub