我的也这样了
```cpp
var a:array[0..10005]of integer;
pan:array[0..10005]of boolean;//pan 数组用于定义a数组是否为零
t,n,m,i:longint;
procedure watering;
var falg:boolean;j,address:longint;
begin
for j:=1 to 100000000 do
begin
// writeln('howmanytime uses ',j);
falg:=false;
i:=1;address:=1;
while (i<=m)and(address<=n) do
begin
if not(pan[address])then //如果a数组不为零，即某人还没有灌满
begin
dec(a[address]);//write(address,' ',a[address],' ');
falg:=true;
inc(i);
if a[address]<=0 then pan[address]:=true;
end;
inc(address);
end;
if not(falg)then exit;
inc(t);
end;
end;
begin
assign(input,'water.in');reset(input);
assign(output,'water.out');rewrite(output);
fillchar(pan,sizeof(pan),false);
fillchar(a,sizeof(a),0);
readln(n,m);
for i:=1 to n do read(a[i]);
t:=0;
watering;
writeln(t);
close(input);close(output);
end.
```
by simplysml @ 2017-11-06 14:59:04