```cpp
var
sum,n,m,i,j,tt:longint;
t,p:array[1..20000] of longint;
begin
readln(n);
for i:=1 to n do
read(t[i]);
readln(m);
for i:=1 to m do
p[i]:=i;
sum:=m;
tt:=0;
while sum<n do
begin
inc(tt);
for i:=1 to m do
if t[p[i]]>0 then dec(t[p[i]])
else begin
inc(sum);
p[i]:=sum;
end;
end;
writeln(tt);
end.
```
by Altria_Pendragon_ @ 2017-10-14 19:40:01