回复 @嫖金勇娼凯文NB :
猜猜我是谁

回复 @嫖金勇娼凯文NB : 是的，我非常赞同

回复 @HeHe :
世有凯文，然后有代金勇。两个gay里gay气的家伙！

非常有趣的贪心

回复 @据说这是zzy :
***

还是不很懂啊.....

二傻子 xuduo 爱看评论

打错正负，
身败名裂.....

贪心233

打错了头文件的后果

写了两个程序,一个对了,一个不知为啥错啦,求大神们指点:
var
a:array[1..100] of longint;
i,j,k,y,x,l:longint;
begin
k:=0;
x:=0;
readln(l);
for i:=1 to l do
begin
read(a[i]);
x:=x+a[i];
end;
j:=x div l;
for i:=1 to l do
begin
if a[i]<j then begin
k:=k+1;
a[i]:=j;
a[i+1]:=a[i+1]-j+a[i];
end
else if a[i]>j then begin
k:=k+1;
a[i]:=j;
a[i+1]:=a[i+1]-j+a[i];
end;
end;
writeln(k);
end.

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.

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

从左端向右端依次调整就行了。注意问的是移动次数而不是移动的纸牌张数。。。

AC100题纪念

开了O2优化就过不了，关了之后就过了……

模拟模拟~