Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
igfubyf55588
02.09.2022 16:42 •
Информатика
Составьте программу ввода с клавиатуры элементов массива a [1..10] и вывода на экран элементов с чётными значениями и чётными индексами
Показать ответ
Ответ:
djdjsjsj
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 оценок)
Популярные вопросы: Информатика
onkyyyyyyy
03.01.2020 09:18
1. Методом наименьших квадратов Для данных, представленных в таблице, найти линейную зависимость у= ax + b. Данные:11-4-17,82-2-11,6Хі30-4,4423,055410,146616,287822,381028,2Yi...
drad2005
26.04.2020 06:17
Алгоритмом можно считать?1)описание процесса решения квадратного уравнения 2)список класса в журнале3)расписание уроков в школе4)технический паспорт автомобиля...
YSPESHNUY
12.10.2021 06:14
Выбери подходящие типы памяти для записи данной информации. Информация: Записать 100−300 фотографий с цифрового фотоаппарата. флешка CD-диск дискета...
semchik60
20.04.2022 03:38
сор за 2 четверть по информатике шестой класс задание 5 установите соответствие название программного обеспечения...
11maksim11
16.11.2022 04:34
Что выведет при вводе a=45,b=34, c=90...
ExplodingPies
07.04.2021 11:16
Что не относится к компонентам системного ПО...
shah25
03.04.2021 18:57
Дан логотип. Что это? ...
LayLay1337
15.07.2020 11:28
X Видео в презентации Выбери графические файлы. Верных ответов: 2 Живая природа Рис. 1Коала Рис. 2IMG_1722 MP4 Рис. 3Пингвины Рис. 4...
krasotka505050
10.01.2023 15:11
Используем цикл while,питон (пайтон) Задание 1. Найти количество трехзначных чисел (положительных), кратных 23. Задание 2. Дано натуральное число. Найти произведение четных цифр...
DemonDem25
21.06.2022 06:20
Утрапеции abcd, стороны ad и bc равны 12 и 8дм. площадь треугольника acd 36дм. вычеслите площадь трапеции. ответ: 60дм....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.