Var
        n,m,i,ans:longint;
        a:array[1..10000]of longint;

Function ef(left,right:longint):longint;
Var
        i,j,mid,t:longint;
Begin
        i:=left; j:=right; mid:=a[(left+right) div 2];
        t:=a[i]; a[i]:=mid; a[(left+right) div 2]:=t;
        repeat
                while (i<j) and (a[j]<=mid) do dec(j);
                if i<j then
                begin
                        t:=a[i]; a[i]:=a[j]; a[j]:=t;
                        inc(i);
                end;
                while (i<j) and (a[i]>=mid) do inc(i);
                if i<j then
                begin
                        t:=a[j]; a[j]:=a[i]; a[i]:=t;
                        dec(j);
                end;
        until i>=j;
        if i<m then exit(ef(i,right));
        if i>m then exit(ef(1,i));
        exit(a[i]);
End;

Begin
        readln(n,m);
        for i:=1 to n do
                readln(a[i]);
        ans:=ef(1,n);
        writeln(ans);
        readln;
End.