var maxim,e,n,k,i,last,p:longint;
type vector = array[1..100000] of longint;
var x:vector;
fin,fout:textfile;
function aha(capacitate:longint):boolean;
var i,e,o,p,transp:longint;
begin
  transp:=1;
  p:=0;
  for i:=1 to n do begin
    if p+x[i]>capacitate then begin
      p:=x[i];
      inc(transp);
      end
    else p:=p+x[i];
    end;
    if transp>k then aha:=false
    else aha:=true;
end;
  

begin
  maxim:=0;
  e:=1;
  assign(fin,'transport.in');
  reset(fin);
  assign(fout,'transport.out');
  rewrite(fout);
  read(fin,n,k);
  for I:=1 to n do begin
    read(fin,x[i]);
    if x[i]> maxim then maxim:=x[i];
    end;
  for i:=maxim to 256000000 do begin
    if aha(i) then begin
      write(fout,i);
      break;
     end;
     end;
     
      
  
  
  
  
  close(fin);
  close(fout);
  end.