Question

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

Answer 1

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.