Pagini recente » Cod sursa (job #758778) | Cod sursa (job #1570257) | Cod sursa (job #1204729) | Cod sursa (job #1827312) | Cod sursa (job #629724)
Cod sursa(job #629724)
Program st;
var a:array [1..3000000] of longint;
b1,b2:array [1..1 shl 17] of char;
i,n,t,l,p,aux:longint;
s:string;
fi,fo:text;
function citire:longint;
var aux:longint;
begin
aux:=0;
while (s[p]>='0') and (s[p]<='9') and (p<=l) do begin
aux:=aux*10+ord(s[p])-48;
if p=l then begin
read(fi, s);
p:=0;
l:=length(s);
end;
inc(p);
end;
while ((s[p]<'0') or (s[p]>'9'))and(s<>'') do begin
inc(p);
if p>l then begin
read(fi, s);
p:=1;
l:=length(s);
end;
end;
citire:=aux;
end;
procedure sort(l,r:longint);
var k,i,j,y,x:longint;
begin
i:=l; j:=r;
k:=a[random(r-l)+l];
while i<j do begin
while a[i]<k do inc(I);
while a[j]>k do dec(j);
if i<=j then
begin
y:=a[i]; a[i]:=a[j]; a[j]:=y;
inc(i); dec(j);
end;
end;
if t<i then begin if l<j then sort(l,j); end
else
if i<r then sort(i,r);
end;
begin
assign(fi,'sdo.in');
assign(fo,'sdo.out');
settextbuf(fi,b1);
settextbuf(fo,b2);
reset(fi); rewrite(fo);
readln(fi,n,t);
read(fi,s); l:=length(s); p:=1;
for i:=1 to n do a[i]:=citire;
sort(1,n);
write(fo,a[t]);
close(fo);
end.