Question

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

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.