Даны целые числа 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

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) )