Question

вводится последовательность из натуральных чисел. Найти минимальный элемент среди нечётных. Через if Pascal

Answer 1

var a,min: integer;

begin

readln(a);

min:=a;

while(a<>0) do begin

if(a<min) and (a mod 2<>0) then min:=a;

readln(a);

end;

write(min);

end.