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

112

273

Посмотреть ответы 2

Ответы на вопрос:

egorbychkov83

Информатика

4,4(30 оценок)

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