20 напишите программу, которая в последовательности натуральных чисел определяет минималь- ное чётное число. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется чётное число. количество чисел не превышает 1000 введённые числа не превышают 30 0 программа должна вывести одно число — минимальное чётное число. пример работы программы: входные данные выходные данные 8 4 3 20 6 6
torgor2017
3
10.04.2019 18:16
2
Другие вопросы по теме Информатика
dora12345pandora
31.05.2019 04:00
Аранида
31.05.2019 04:00
Клер11330
16.06.2019 14:10
NoNameRu1
20.05.2019 18:50
Damir2342
19.08.2019 18:30
nataotkidach
23.04.2020 20:02
swaTor
23.04.2020 20:01
dogs2247
23.04.2020 20:01
lidatutaeva
02.04.2019 08:50
Популярные вопросы
- Упісочниці гралися хлопчики і дівчатка.дівчат було на 3 менше,ніж хлопців.скільки...
3 - Решить уравнение [tex]( {x}^{2} + 3x + 4)( {x}^{2} + 3x + 9) = 266[/tex]...
2 - Вчислах 5404 501 526 поставьте десятичную запятую так чтобы целая часть была равна...
1 - Автомобиль догоняет следующий в том же направление трактор. каким будет расстояние...
2 - 7сынып соч бар ма бар болса жіберіңіздерші керек болып тұр...
2 - Найти, сколько локальных экстриумов есть у функции? f(x) = x^3 - 6x^2 + 12x - 5....
3 - Значение арифметического выражения: 920 + 360 – 25 записали в системе счисления...
1 - Постройте график линейных функции в одной системе координат...
1 - Cпишите предложения, расставьте недостающие знаки препинания. подчеркните главные...
2 - Какова частота поезда, движущегося по закруглению радиусом 800м со скоростью 20м/с...
2
Добрый вечер. Код программки находится в файле, вам нужно изменить расширение файла на .cpp, язык реализации С++.
Буду очень благодарен за отметку "Лучший ответ"
Все вопросы в коментарии
Объяснение:
var
i, min, n, d: integer;
begin
readln(n);
min:=30000;
for i := 1 to n do
begin
readln(d);
if (d mod 2 = 0) and (min>d) then
min:=d
end;
writeln(min);
end.