最小费用最大流

CIR Dinic

program poker;
var n,k,m,t,av,st:longint;
a,b:array[0..101] of longint;
begin
assign(input,'jfzp.in'); assign(output,'jfzp.out'); reset(input); rewrite(output);
readln(n); t:=0; st:=0;
for k:=1 to n do begin
read(a[k]); t:=t+a[k]; end;
readln;
av:=trunc(t/n);
for k:=1 to n do
b[k]:=a[k]-av;
for k:=1 to n do
if (b[k]<>0) then begin
st:=st+1;
b[k+1]:=b[k+1]+b[k]; end;
writeln(st);
close(input); close(output);
end.

还以为这题有啥规律呢。。。。

连跪12次......
好歹上榜了......

自从有了priorrity_queue，再也不用写堆了

我废了，，，就这水题我交了三遍！！！

回复 @liu_runda :
达哥你厉害

用的所谓ST(RMQ)算法,我去!4.989 s 194.90 MB!
用单调队列:1.064 s 8.37 MB...
是因为查询次数少,还是我垃圾...

回复 @魔术羊 :
我不会判环啊QAQ ！！！改了之后就过了一个点！

这是一星题...
我真傻,真的.

看到Claris的线段树合并std被卡了5分hhhh

初值又设置错了。。。。

手欠，非要用gets，读入崩了
然后换成scanf AC！！

跟POJ描述不一样啊！！！不一样啊！！！粘代码orz得妥妥的……

std是这样读数据的

 scanf("%1d",&a[i]); 

所以都能过。。。

有问题啊
各路神犇祝我一臂之力
var
s:char;
lc:boolean;
temp,i,cj,ja,he:integer;
begin
assign(input,'expr.in');
reset(input);
{assign(output,'expr.out');
rewrite(output); }
cj:=1;
while not eof do
begin
read(s);
if (s>='0') and (s<='9') then
temp:=(temp*10+(ord(s)-ord('0')))mod 10000
else
begin
if s='*' then
begin
cj:=cj*temp;
lc:=false;
end
else
begin
if lc=true then begin
ja:=ja+cj*temp;
lc:=false;
cj:=1;
end
else
ja:=ja+temp;
end;
temp:=0;
end;
end;
if lc=true then begin
ja:=ja+cj*temp;
lc:=false;
cj:=1;
end
else
ja:=ja+temp;
writeln(50);
close(input);
close(output);
end.

龅牙。

[size=50]讨厌的盗号鱼，吃了你[/size]