Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Valentinka14485
12.07.2021 18:25 •
Информатика
Вводится последовательность из n положительных целых чисел. найтинаименьшее число среди чётных элементов последовательности. n=1-100 lazarus
Показать ответ
Ответ:
MarySolov
07.07.2020 23:55
Var n,min,a:integer;
begin
readln(n);
min:=30000;
for n:=n downto 1 do begin
read(a);
if (not odd(a)) and (a<min) then min:=a;
end;
writeln(min);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
minyaaaaaaaaaaaaaaa
07.10.2021 02:26
Дан числовой ряд от 1 до 50 . найти сумму первых 10 чисел...
inchinusaozkhxs
03.11.2022 13:33
Вариант 11. представьте в виде построчной записи алгоритм решения следующей .фруктовый магазин продает яблоки поштучно по 10 руб., груши — по 20 руб., апельсины — по 30...
diniska3
30.05.2020 13:51
как выделенную строчку объяснить...
sernikovs
30.10.2021 18:26
Текстовый документ хранился в 8-битной кодировке кои-8. этот документ был преобразован в 16-битную кодировку unicode, при этом размер памяти, необходимой для хранения документа...
kristpan2004p0c22v
24.03.2021 02:19
Надо написать на паскале в заданном массиве определите количество элементов,которые меньше заданного с клавиатуры числа...
дима5646
07.10.2022 04:52
Перетворіть вираз в одночлен стандартного вигляду 0,4а в третьому степені bв п ятому степені помножити на 1.5а в третьому степені b...
alikhanchik
19.06.2021 14:18
Составить сравнительную таблицу двух частей Концерта № 23 для фортепиано с оркестром В.А....
bombaleilooo
19.06.2021 14:18
Астрономы повседневно находят новые звёзды и планеты при различных телескопов. Наблюдая за взаимодействием и движением планет и звёзд, астрономы определяют их различные...
228dflbr
19.06.2021 14:18
Жазылым. Тіркестерден жай сөйлем құра. Сұрақтарға жауап береді....
3648
19.06.2021 14:18
Выбери верно и неверно 1. В раннем железном веке постоянное жилье строилось в основном зимой. 2. Кочевники не строили укреплений городского типа....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(n);
min:=30000;
for n:=n downto 1 do begin
read(a);
if (not odd(a)) and (a<min) then min:=a;
end;
writeln(min);
end.