接水问题

前言
水法真神奇，暴力出奇迹。欢迎大家又给我的博客阅读量+1。今天嘟嘟老师给大家讲一道含金量较高的题——接水问题。
题目描述
学校里有一个水房，水房里一共装有 m 个龙头可供同学们打开水，每个龙头每秒钟的供水量相等，均为 1。
现在有 n 名同学准备接水，他们的初始接水顺序已经确定。将这些同学按接水顺序从 1到 n 编号，i号同学的接水量为 wi。接水开始时，1 到 m号同学各占一个水龙头，并同时打开水龙头接水。当其中某名同学 j 完成其接水量要求 wj 后，下一名排队等候接水的同学 k马上接替 j 同学的位置开始接水。这个换人的过程是瞬间完成的，且没有任何水的浪费。即j 同学第x 秒结束时完成接水， 则 k 同学第 x+1 秒立刻开始接水。 若当前接水人数 n’不足 m，则只有 n’个龙头供水，其它 m−n’个龙头关闭。
现在给出 n名同学的接水量，按照上述接水规则，问所有同学都接完水需要多少秒。
输入
第 1 行2 个整数 n 和 m，用一个空格隔开，分别表示接水人数和龙头个数。
第 2 行 n 个整数 w1、w2、……、wn，每两个整数之间用一个空格隔开，wi表示 i 号同学的接水量。
输出
输出只有一行，1 个整数，表示接水所需的总时间。
样例输入1
5 3
4 4 1 2 1
样例输出1
4
样例输入1提示
第 1 秒，3 人接水。第 1秒结束时，1、2、3 号同学每人的已接水量为 1，3 号同学接完水，4 号同学接替 3 号同学开始接水。
第 2 秒，3 人接水。第 2 秒结束时，1、2 号同学每人的已接水量为 2，4 号同学的已接水量为 1。
第 3 秒，3 人接水。第 3 秒结束时，1、2 号同学每人的已接水量为 3，4 号同学的已接水量为 2。4号同学接完水，5 号同学接替 4 号同学开始接水。
第 4 秒，3 人接水。第 4 秒结束时，1、2 号同学每人的已接水量为 4，5 号同学的已接水量为 1。1、2、5 号同学接完水，即所有人完成接水。
总接水时间为 4 秒。
样例输入2
8 4
23 71 87 32 70 93 80 76
样例输出2
163
数据范围限制
1 ≤ n ≤ 10000，1 ≤m≤ 100 且 m≤ n；
1 ≤wi ≤ 100。
思路
这道题可以锻炼我们的斯喂（思维）。特别的搞事情。你要有足够的奶心（耐心）。首先设一个指针j，每更换一次，就inc（j），直到j>n。a数组为每个人的接水量，b数组为正在接水的人每个人还要接多少水。我们还要设一个boolean变量p，来表示是否所有的都接完水。
标程在下面哦……(某些童鞋是不是迫不及待地想看呢)
代码
var
a,b:array[1..100000] of longint;
i,j,n,m,ans:longint;
p:boolean;
begin
assign(input,’water.in’);reset(input);
assign(output,’water.out’);rewrite(output);
readln(n,m);
for i:=1 to n do
read(a[i]);
for i:=1 to m do
b[i]:=a[i];
j:=m;
repeat
p:=true;
inc(ans);
for i:=1 to m do
begin
dec(b[i]);
if (b[i]<=0) then
begin
inc(j);
b[i]:=a[j];
end;
end;
for i:=1 to m do
begin
if (b[i]<>0) then
begin
p:=false;
break;
end;
end;
until (j>n) and (p=true);
write(ans);
close(input);
close(output);
end.