var f,g:text;
n,k,i,j,s,max:integer;
a:array[1..16000] of integer;
da:boolean;
begin
        assign (f,'transport.in');reset(f);
        assign (g,'transport.out');rewrite (g);
        read (f,n,k);
        for i:=1 to n do
                read (f,a[i]);
        max:=a[1];
        for i:=2 to n do
                if a[i]>max then
                        max:=a[i];
        da:=false;
        while da=false do begin
                i:=0; j:=1;
                while (i<=k) or (j<=n) do begin
                        s:=0;
                        repeat
                                s:=s+a[j];
                                j:=j+1;
                        until s>max;
                        i:=i+1;
                end;
                if i=k then da:=true
                        else
                        max:=max+1;
        end;
        write (max);
end.