Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное число. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется чётное число. количество чисел не превышает 1000. введённые числа не превышают 30 000. про грамма должна вывести одно число — минимальное чётное число.

lenok010 lenok010    2   26.08.2019 13:10    52

Ответы
Program n1;
var a,min,i,k: integer;
begin
min:=30000;
readln(k);
for i:=1 to k do
begin
readln(a);
if (a<min) and (a mod 2=0) then min:=a;
end;
write(min);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика