Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
nik20042002
20.12.2020 21:17 •
Информатика
Даны целые числа a1,…a50. получить последовательность b1,…,b50, которая отличается от исходной последовательности тем, что все нечетные элементы удвоены.
Показать ответ
Ответ:
Kyki510
02.10.2020 16:53
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
0,0
(0 оценок)
Популярные вопросы: Информатика
ghromovrostisl22
05.05.2020 18:14
Чему равно z: x: = 9; y: = 12 if x = 12 then z = ( y-x * 2) else z = 12 - x...
alaska122
26.04.2023 22:47
Составить программу вычисления окружности если известен радиус не отвечайте просто так а правильно....
oDESo
04.02.2020 05:27
Повороты. Урок 2 «Чтение» – «Текст» «Запись» – «Число» «Запись» – «Текст» «Чтение» – «Число» Нашли ошибку на сайте? ZERO.kz...
Andy2511
21.09.2021 02:08
Вставьте цифры на места звездочек в выражении *036 - 2356 = 1**6...
atas2
16.04.2020 15:44
60 реализовать программу - векторный редактор. - курсорные клавиши передвигают курсор - клавиша “пробел” (space) изменяет состояние “пера” (поднять-опустить) - клавиша...
Mognolia
21.12.2022 13:35
1сообщение записано буквами 128 символьного алфавита , содержит 40 символов . какой объем информации оно несет ? 2 информационный объем книги в 360 страниц равен 360...
Лизончик111
17.10.2021 21:08
Вчем преимущества использования флеш-памяти перед другими внешней памяти...
bvoznyk69
02.09.2020 22:55
A12. Маша разрезала нитку на 40 кусков. Каждый кусок имеет длину не менее 2, но не более 9 см. Даны четыре высказывания: 1) «Хотя бы 6 кусков имеют длину более 5 см»;...
dikiyparker
10.01.2023 04:02
Решите ребус В ребусе зашифрован физический термин состоящий из 2 слов ОТ...
Крумина927
26.05.2023 22:04
Определите относительную влажность воздуха, если абсолютная влажность при температуре 0°С равна 1г/м3. Максимальное содержание водяного пара в воздухе при температуре...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Массив а заполняется с использованием случайных чисел. Результаты выводятся на первый лист рабочей книги.
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