uses crt;
var a,b:array [1..50] of integer;
    i,j,n,min:integer;
begin
 clrscr;
 j:=1;
 for i:=1 to 10 do
  begin
   write('a[',i,']=');
   readln(a[i]);
   if (a[i] mod 2)<>0 then  
                       begin
                        b[j]:=a[i];
                        j:=j+1;                        
                       end;
  end; 
  min:=b[1];
  for n:=1 to j-1 do
   begin
    if b[n]<min then min:=b[n];
   end;
 write('Наименьший нечетный элемент=',min);   
end.