ПомогитеВводится последовательность из N положительных целых чисел. Найтинаименьшее число...

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 (aend;
writeln(min);
end.