Вводится последовательность из n положительных целых чисел. найтинаименьшее число среди чётных элементов последовательности. n=1-100 lazarus

Ответы

tadzhigul 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.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

zaj2015 12.01.2021 18:19

Кто скажет, что изображено на этих картинках?...

Тимонди 12.01.2021 18:16

Сколько символов содержит информационное сообщение, записанное с символьного алфавита, если объем его составил 120 бит?...

itrufanova2016 30.09.2019 12:40

Монография, набранная на компьютере, содержит 2048 страниц, на каждой страни‐ це 48 строк, в каждой строке 72 символа. для кодирования символов используется кодировка unicode,...

KaKOYTAGHOM 30.09.2019 12:40

Всообщении, записанном с 64 символьного алфавита, содержится 2048 символов. найдите информационный объем этого сообщения (ответ выразить в кбайтах)...

89181790311 30.09.2019 12:40

Ad из шестнатеричной системы в десятичную...

pamjatnichaja 26.05.2020 09:32

Напишіть свої враження від вивчення інформатики в 5 класі (які теми, уроки сподобались/не сподобались, що дізналися нового, які є побажання та недоліки)...

Arsen290 26.05.2020 09:36

Укажите все возможные маршруты доставки Интернет-пакетов от сервера-отправителя О к серверу получателю П через серверы 1, 2, 3, 4, 5, 6, 7 с учётом имеющейся архитектуры сети...

olesmekhedova 26.05.2020 09:36

З яких об’єктів складається діаграма?...

соня7891 26.05.2020 09:35

Сколько кодовых комбинаций дает 8-й двоичный код...

paschprudnikov 26.05.2020 09:34

Запиши программу на языке программирования Паскаль. Заполни пропуски в программе. Длина стороны квадрата равна a. Вычисли площадь квадрата. var s,a:real; begin write( = ); readln(a);...

Вводится последовательность из n положительных целых чисел. найтинаименьшее число среди чётных элементов последовательности. n=1-100 lazarus

Популярные вопросы