Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
rabotastudent5
14.10.2020 00:17 •
Информатика
Написать программу в бейсике для этой : заполнить массив а(15) таким образом, чтобы нечетные были равны нулю, а четные единице.
Показать ответ
Ответ:
superillarion15
01.10.2020 19:35
Самое простое, заполнить только четные элементы, т.к. в нечетных по умолчанию уже ноль стоит))
DIM A(15)
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
Если нужно увидеть массив, можно дополнить блоком вывода
FOR I = 1 TO 15
PRINT A(I)
NEXT I
Ну, а если явным образом вписывать нули, то тогда так
DIM A(15)
FOR I = 1 TO 15 STEP 2
A(I) = 0
NEXT I
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
0,0
(0 оценок)
Популярные вопросы: Информатика
babchykalinka
12.07.2022 12:22
Дано натуральне число n. Скласти програму обчислення значення виразу: 1/sin1+1/sin1+sin2+... +1/sin1+sin n. Результат округлими до сотих. Треба зробити в Pascal...
pud0303
02.11.2022 20:08
Өңдеудің кіріктірілген ортасында битпен берілген ақпарат көлемін байтқа, килобайтқа және мегабайтқа ауыстыру бағдарламасын құру керек....
theanuta11
08.03.2020 03:14
Задача ,список кубов, по заданному целому числу К распичатывайте все натуральные числа не превосходящие К .напр. если К=20 то кубы чисел не превосходящие К равны 1,8,18....
kirilleven
09.03.2023 22:09
11. Найдите значения выражений: 1) (1 / 1) v (1 v0);2) (((1 v0) v 1) v 1);3) (0 & 1) & 1;4) 1 & (1 & 1) & 1;5) ((1 v0) & (1 & 1)) & (0 v 1);6)...
dsg189g
04.04.2023 22:16
Ниже приведены запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте Интернета: Швеция 3200 Финляндия 2300 Швеция & Финляндия...
puzhalina77Frik
02.03.2023 10:13
Составить программу, которая печатает True, если точка с координатами (x, y) принадлежит заданным закрашенным (заштрихо-ванным) областям, показанным на рисунках в табл. 1,...
Dimatrubilov
14.03.2022 05:26
1)какие новые особенности появились при разработке компьютерного интерфейса. 2)Что характирезует качество интерфейса...
colins1987
27.01.2020 02:36
Как сделать такой шрифт ?...
insaimner
09.07.2022 18:24
Відгук про твір петер і червоний птах у. старка...
pepka1
29.01.2020 23:08
1. Морфологічну помилку допущено в рядку: А запобігаймо грубим помилкам Б збережіть природу чистою В ходімо на нову виставку Г давайте жити дружно Д до Бучак Любославі Йосипівні...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
DIM A(15)
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
Если нужно увидеть массив, можно дополнить блоком вывода
FOR I = 1 TO 15
PRINT A(I)
NEXT I
Ну, а если явным образом вписывать нули, то тогда так
DIM A(15)
FOR I = 1 TO 15 STEP 2
A(I) = 0
NEXT I
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I