var i,n,k,max,min : integer;
    s : array[1..16000] of integer;
    f : text;
procedure citeste;
begin
     read(f,n,k);
     for i := 1 to n do begin
         read(f,s[i]);
         if s[i] > min then min := s[i];
         max := max + s[i];
     end;
end;
function verificare(m:integer):boolean;
var x,c : integer;
begin
     verificare := true;
     x := 1;
     c := 0;
     for i := 1 to n do begin
         if (c + s[i]) <= m then begin
            c := c + s[i];
         end
         else begin
              c := s[i];
              x := x +1;
              if x > k then begin
                 verificare := false;
                 break;
              end;
         end;
     end;
end;
function cbin(p,q : integer):integer;
var m,cmin : integer;
begin
     cmin := q;
     repeat
           m := (p+q) div 2;
           if verificare(m) then begin
              cmin := m;
              q := m;
           end
           else p := m;
     until p + 1 = q;
     cbin := cmin ;
end;
begin
     assign(f,'transport.in');reset(f);
     citeste; close(f);
     assign(f,'transport.out');rewrite(f);
     write(f,cbin(min,max));
     close(f);
end.