Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Андріана200314
28.03.2023 09:30 •
Информатика
Составьте программу ввода с клавиатуры элементов массива a [1..10] и вывода на экран элементов с чётными значениями и чётными индексами
Показать ответ
Ответ:
228466
02.10.2020 22:55
Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Пень01
07.02.2020 04:45
Каков будет результат функции усреднения? Что будет результатом функции Count? то будет результатом функции Max? Что будет результатом функции Min?...
nikola58
03.06.2021 04:14
Що є елементом графічного інтерфейсу користувача, призначений для видалення і часто тимчасового зберігання вуличних об єктів?...
Reshebnikov
26.07.2020 10:44
ЧТО ПРОИЗОЙДЁТ ПРИ НАЖАТИИ КЛАВИШИ ENTER, ЕСЛИ КУРСОР НАХОДИТСЯ ВНУТРИ АБЗАЦА? а) курсор переместится на следующую строку абзацаб) курсор переместится в конец текущей...
мамадочп4а
06.10.2020 20:54
Файл Утёс.doc хранится на жестком диске в каталоге ЛИРИКА, который является подкаталогом каталога ПОЭЗИЯ. В таблице приведены фрагменты полного имени файла. Восстановите...
inglis1982
24.09.2020 22:46
Скопируйте неправильные распределенные понятие в столбце 2 в соответствии с типами в столбце поставлю 1 лайк и ...
АлияКью
03.08.2022 21:38
Стартовое значение поля «№ в последовательности» для ТСР – модуля А равен 4378. Стартовое значение поля «№ в последовательности» для ТСР – модуля В равен 2198. ТСР...
viktoriakruminaВика
28.08.2022 23:23
Определи с которого был изменен размер круга.Ctrl + растягивание объекта за крайниеТОЧКИShift + радягивание объекта зацентральные ВчкиCtrl + растягивание объекта...
varvaraa2
03.05.2021 11:10
2. Закончите предложения. Функция КОРЕНЬ) Функция СТЕПЕНЬ)Функция ЦЕЛОЕО) Функция ЧАСТНОЕ () заранее...
bzhx
09.10.2022 01:41
Суретті ажырата біл!Суреттерге қарап қандай әрекеттер орындалғанын жаз....
индокролбак
10.01.2021 10:08
Найти номер первого положительного массива...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
end.