讨论 / 超简单的FP解法
谭兵 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+。。。最后全部加完了之后找出最大的,就是答案

#1 谭兵@2013-10-04 20:00:00
回复 删除
这是接水问题

查看更多回复
提交回复