var n,k,i,t,s,max,ls,ld,m,min,a:longint;
v:array[1..16000] of integer;
f,g:text;
begin
assign(f,'transport.in');reset(f);
assign(g,'transport.out');rewrite(g);
read(f,n,k);
min:=0;
max:=0;
for i:=1 to n do begin
read(f,v[i]);
if min<v[i] then min:=v[i];
max:=max+v[i];
end;
ls:=min;
ld:=max;
while ls<=ld do begin
m:=(ls+ld) div 2;
t:=1;
s:=0;
for i:=1 to n do s:=s+v[i];
if t>k then ls:=m+1
       else ld:=m-1;
a:=m;
end;
writeln(g,a);
close(f);
close(g);
end.