题目描述 Description
学校里有一个水房，水房里一共装有m 个龙头可供同学们打开水，每个龙头每秒钟的供水量相等，均为1。
现在有n 名同学准备接水，他们的初始接水顺序已经确定。将这些同学按接水顺序从1到n 编号，i 号同学的接水量为wi。接水开始时，1 到m 号同学各占一个水龙头，并同时打开水龙头接水。当其中某名同学j 完成其接水量要求wj 后，下一名排队等候接水的同学k马上接替j 同学的位置开始接水。这个换人的过程是瞬间完成的，且没有任何水的浪费。即j 同学第x 秒结束时完成接水，则k 同学第x+1 秒立刻开始接水。若当前接水人数n’不足m，则只有n’个龙头供水，其它m−n’个龙头关闭。
现在给出n 名同学的接水量，按照上述接水规则，问所有同学都接完水需要多少秒。
输入描述 Input Description
第1 行2 个整数n 和m，用一个空格隔开，分别表示接水人数和龙头个数。
第2 行n 个整数w1、w2、……、wn，每两个整数之间用一个空格隔开，wi 表示i 号同
学的接水量。
输出描述 Output Description
输出只有一行，1 个整数，表示接水所需的总时间。
样例输入 Sample Input
5 3
4 4 1 2 1
样例输出 Sample Output
4
数据范围及提示 Data Size & Hint
n<=10000, m<=100
第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 秒。
题解：
模拟。
每一次从接水的人里面挑出时间最短的，让每个人都接这个时间，然后再替换上去，在接水……循环到所有人都接好了为止。
var n,m,i,k,ans,x:longint;
p:boolean;
a:array[0..10001]of longint;
begin
readln(n,m);
for i:=1 to n do read(a[i]);
k:=m;
while p=false do
begin
p:=true;
x:=maxlongint;
for i:=1 to m do
if (a[i]<x)and(a[i]<>0) then x:=a[i];
for i:=1 to m do
if a[i]>0 then a[i]:=a[i]-x;
for i:=1 to m do
if a[i]=0 then
begin
if k=n then
begin
a[i]:=0;
continue;
end;
inc(k);
a[i]:=a[k];
end;
for i:=1 to m do
if a[i]<>0 then p:=false;
ans:=ans+x;
end;
write(ans);
end.