noip2002-均分纸牌 2008.11.5

noip2002-均分纸牌 2008.11.5

心得：不要把题目想得太复杂了，有时实际上很简单，而其需要猜一下，做一个猜想，然后验证猜想是对的，要大胆的去猜想！！考试时，尤其要大胆猜想，不一定非要证明出来，只要正确就行了

program Everage; 

var 
 a:array[0..100] of longint; 
 s,i,n,t:longint; 

begin 
 assign(input,'jfzp.in');reset(input); 
 assign(output,'jfzp.out');rewrite(output); 
 readln(n); 
 for i:=1 to n do begin 
 read(a[i]); 
 inc(t,a[i]); 
 end; 
 t:=t div n; 
 s:=0; 
 for i:=1 to n-1 do 
 if a[i]<>t then begin 
 inc(a[i+1],a[i]-t); 

 inc(s); 
 end; 
 writeln(s); 
 close(input); 
 close(output); 
end.