Pagini recente » Istoria paginii runda/leiten/clasament | Cod sursa (job #693414) | Cod sursa (job #121421) | Diferente pentru propuneri/6-arhiva-educationala intre reviziile 12 si 16 | Cod sursa (job #455791)
Cod sursa(job #455791)
Program statistic;
var t,n,k,i,j:integer;
a:array[1..3000] of longint;
f,g:text;
begin
assign(f, 'sdo.in'); reset(f);
assign(g, 'sdo.out'); rewrite(g);
read(f,n);
readln(f,k);
for i:=1 to n do
read(f, a[i]);
for i:=1 to n do
for j:=1+i to n do
if a[i]>a[j] then begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
end;
for i:=1 to n do
writeln(g,a[k]);
close(f); close(g);
end.