// Author : Nishanth Vijayan
// Institution: IIT Ropar,India.
//
// Spoj : http://w...content-available-to-author-only...j.com/users/nishanth_v/
// Codechef : http://w...content-available-to-author-only...f.com/users/nishanth_v
// HackerEarth : http://w...content-available-to-author-only...h.com/users/nishanththegr8/
// Facebook : https://w...content-available-to-author-only...k.com/NishanthTheGr8
//
// Motto : The Less You Give A Fuck, The Happier You'll Be. :)
#include <iostream>
#include <cstdio>
#include <map>
#include <set>
#include <vector>
#include <stack>
#include <algorithm>
#include <utility>
#include <cmath>
#include <string>
#include <cstring>
#define ABS(x) ((x)<0?-(x):(x))
#define SQR(x) ((x)*(x))
#define CUBE(x) ((x)*(x)*(x))
#define pnl printf("\n");
#define REP(i,n) for(__typeof(n) i=0;i<(n);i++)
#define FOR(i,a,b) for(__typeof(b) i=(a);i<(b);++i)
#define FORE(i,a,b) for(__typeof(b) i=(a);i<=(b);++i)
#define FORD(i,a,b,d) for(__typeof(b) i=(a);i<(b);i+=(d))
#define FORR(i,n,e) for(__typeof(n) i=(n);i>=(e);--i)
#define FORRD(i,n,e,d) for(__typeof(n) i=(n);i>=(e);i-=(d))
#define FOREACH(i,s) for(__typeof((s).begin()) i=(s).begin();i!=(s).end();i++)
#define UNIQUE(v) sort(ALL(v)),v.erase(unique(ALL(v)),v.end())
#define FILL(a,b) memset(a,b,sizeof(a))
#define pi acos(-1)
#define LLI long long int
#define gc getchar_unlocked
#define pc putchar_unlocked
using namespace std;
LLI scanint()
{
register int c = gc();
LLI x = 0;
int neg = 0;
for(;((c<48 || c>57) && c != '-');c = gc());
if(c=='-') {neg=1;c=gc();}
for(;c>47 && c<58;c = gc()) {x = (x<<1) + (x<<3) + c - 48;}
if(neg) x=-x;
return x;
}
void writeint (LLI n)
{
LLI N = n, rev, count = 0;
rev = N;
if (N == 0) { pc('0'); pc('\n'); return ;}
while ((rev % 10) == 0) { count++; rev /= 10;}
rev = 0;
while (N != 0) { rev = (rev<<3) + (rev<<1) + N % 10; N /= 10;}
while (rev != 0) { pc(rev % 10 + '0'); rev /= 10;}
while (count--) pc('0');
}
int main(){
int T;
LLI n,k,C[50010];
cin>>T;
while(T--){
cin>>n>>k;
FOR(i,0,n)C[i]=scanint();
if(k>n) cout<<0<<endl;
else{
sort(C,C+n);
cout<<C[n-k]<<endl;
}
}
return 0;
}
Ly8gICAgQXV0aG9yIDogTmlzaGFudGggVmlqYXlhbgovLwkgIEluc3RpdHV0aW9uOiBJSVQgUm9wYXIsSW5kaWEuCi8vCi8vCSAgU3BvaiAJCSAgOiBodHRwOi8vdy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uai5jb20vdXNlcnMvbmlzaGFudGhfdi8KLy8JICBDb2RlY2hlZiAJICA6IGh0dHA6Ly93Li4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5mLmNvbS91c2Vycy9uaXNoYW50aF92Ci8vCSAgSGFja2VyRWFydGggOiBodHRwOi8vdy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uaC5jb20vdXNlcnMvbmlzaGFudGh0aGVncjgvCi8vCSAgRmFjZWJvb2sJICA6IGh0dHBzOi8vdy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uay5jb20vTmlzaGFudGhUaGVHcjgKLy8KLy8gICAgTW90dG8gICAgICAgOiBUaGUgTGVzcyBZb3UgR2l2ZSBBIEZ1Y2ssIFRoZSBIYXBwaWVyIFlvdSdsbCBCZS4gOikKCgojaW5jbHVkZSA8aW9zdHJlYW0+CiNpbmNsdWRlIDxjc3RkaW8+CiNpbmNsdWRlIDxtYXA+CiNpbmNsdWRlIDxzZXQ+CiNpbmNsdWRlIDx2ZWN0b3I+CiNpbmNsdWRlIDxzdGFjaz4KI2luY2x1ZGUgPGFsZ29yaXRobT4KI2luY2x1ZGUgPHV0aWxpdHk+CiNpbmNsdWRlIDxjbWF0aD4KI2luY2x1ZGUgPHN0cmluZz4KI2luY2x1ZGUgPGNzdHJpbmc+CgoKI2RlZmluZSBBQlMoeCkgKCh4KTwwPy0oeCk6KHgpKQojZGVmaW5lIFNRUih4KSAoKHgpKih4KSkKI2RlZmluZSBDVUJFKHgpICgoeCkqKHgpKih4KSkKI2RlZmluZSBwbmwgcHJpbnRmKCJcbiIpOwojZGVmaW5lIFJFUChpLG4pIGZvcihfX3R5cGVvZihuKSBpPTA7aTwobik7aSsrKQojZGVmaW5lIEZPUihpLGEsYikgZm9yKF9fdHlwZW9mKGIpIGk9KGEpO2k8KGIpOysraSkKI2RlZmluZSBGT1JFKGksYSxiKSBmb3IoX190eXBlb2YoYikgaT0oYSk7aTw9KGIpOysraSkKI2RlZmluZSBGT1JEKGksYSxiLGQpIGZvcihfX3R5cGVvZihiKSBpPShhKTtpPChiKTtpKz0oZCkpCiNkZWZpbmUgRk9SUihpLG4sZSkgZm9yKF9fdHlwZW9mKG4pIGk9KG4pO2k+PShlKTstLWkpCiNkZWZpbmUgRk9SUkQoaSxuLGUsZCkgZm9yKF9fdHlwZW9mKG4pIGk9KG4pO2k+PShlKTtpLT0oZCkpCiNkZWZpbmUgRk9SRUFDSChpLHMpIGZvcihfX3R5cGVvZigocykuYmVnaW4oKSkgaT0ocykuYmVnaW4oKTtpIT0ocykuZW5kKCk7aSsrKQojZGVmaW5lIFVOSVFVRSh2KSBzb3J0KEFMTCh2KSksdi5lcmFzZSh1bmlxdWUoQUxMKHYpKSx2LmVuZCgpKQojZGVmaW5lIEZJTEwoYSxiKSBtZW1zZXQoYSxiLHNpemVvZihhKSkKI2RlZmluZSBwaSBhY29zKC0xKQojZGVmaW5lIExMSSBsb25nIGxvbmcgaW50CiNkZWZpbmUgZ2MgZ2V0Y2hhcl91bmxvY2tlZAojZGVmaW5lIHBjIHB1dGNoYXJfdW5sb2NrZWQKCnVzaW5nIG5hbWVzcGFjZSBzdGQ7CgpMTEkgc2NhbmludCgpCnsKcmVnaXN0ZXIgaW50IGMgPSBnYygpOwpMTEkgeCA9IDA7CmludCBuZWcgPSAwOwpmb3IoOygoYzw0OCB8fCBjPjU3KSAmJiBjICE9ICctJyk7YyA9IGdjKCkpOwppZihjPT0nLScpIHtuZWc9MTtjPWdjKCk7fQpmb3IoO2M+NDcgJiYgYzw1ODtjID0gZ2MoKSkge3ggPSAoeDw8MSkgKyAoeDw8MykgKyBjIC0gNDg7fQppZihuZWcpIHg9LXg7CnJldHVybiB4Owp9Cgp2b2lkIHdyaXRlaW50IChMTEkgbikKewpMTEkgTiA9IG4sIHJldiwgY291bnQgPSAwOwpyZXYgPSBOOwppZiAoTiA9PSAwKSB7IHBjKCcwJyk7IHBjKCdcbicpOyByZXR1cm4gO30Kd2hpbGUgKChyZXYgJSAxMCkgPT0gMCkgeyBjb3VudCsrOyByZXYgLz0gMTA7fSAKcmV2ID0gMDsKd2hpbGUgKE4gIT0gMCkgeyByZXYgPSAocmV2PDwzKSArIChyZXY8PDEpICsgTiAlIDEwOyBOIC89IDEwO30gCndoaWxlIChyZXYgIT0gMCkgeyBwYyhyZXYgJSAxMCArICcwJyk7IHJldiAvPSAxMDt9CndoaWxlIChjb3VudC0tKSBwYygnMCcpOwp9CgoKCgoKaW50IG1haW4oKXsKCmludCBUOwpMTEkgbixrLENbNTAwMTBdOwpjaW4+PlQ7CndoaWxlKFQtLSl7CiAgICBjaW4+Pm4+Pms7CiAgICBGT1IoaSwwLG4pQ1tpXT1zY2FuaW50KCk7CiAgICBpZihrPm4pIGNvdXQ8PDA8PGVuZGw7CiAgICBlbHNlewogICAgCXNvcnQoQyxDK24pOwogICAgCWNvdXQ8PENbbi1rXTw8ZW5kbDsKICAgIH0KfQoKcmV0dXJuIDA7Cn0=