Program transport;
 var i,n,k,max:longint;
     a:array [1..16000] of integer;
     fi,fo:text;
 function control(p:longint):boolean;
 var i,j,s:longint;
 begin
 s:=0; j:=0;
 control:=false;
  for i:=1 to n do
   if s+a[i]<=max then s:=s+a[i]
    else begin
           s:=a[i];
           inc(j);
           end;
  if j<k then control:=true
            else control:=false;
  end;
begin
assign(fi,'transport.in');
 reset(fi);
assign(fo,'transport.out');
 rewrite(fo);
readln(fi,n,k);
for i:=1 to n do begin
                  readln(fi,a[i]);
                  if a[i]>max then max:=a[i];
                  end;
 repeat
  if not control(max) then inc(max);
  until control(max);
  write(fo,max);
 close(fo);
end.