谭兵 2013-10-04 20:00:00
点我顶贴
收藏
删除
var w:array[1..100]of longint;i,j,k,l,n,m:longint;
begin
read(n,m);
for i:=1 to m do read(w[i]);
for i:=m+1 to n do
begin
read(l);
k:=1;for j:=1 to m do if w[j]<w[k] then k:=j;
w[k]:=w[k]+l;
end;
k:=0;
for i:=1 to m do if w[i]>k then k:=w[i];
write(k);
end.
思路就是先将m个水龙头前面全部站满了人,然后把接水最小的人后面站上第m+1个人,然后依次寻找最少的,一直加m+。。。最后全部加完了之后找出最大的,就是答案