program ri;

var

n,i,s,p,qq:integer;

a:array[ 1.. 10000] of integer;

begin

readln(n); s:=0;

for i:=1 to n do

begin

read(a[i]);

s:=s+a[i];

end;

qq:=0;

p:=s div n;

for i:=1 to n do

if a[i]p then

begin

inc(qq);

a:=a[i]+a-p;

end;

writeln(qq);

end.

靠 我的就只有80分

高手帮忙！！！！！！！！！！！

建议大家在提交框里打程序。。。

那样比较刺激。。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

就是把所有的堆都化成平均数啊，而且移动位置一定，连动规都省了。

var

a:array[1..100]of integer;

i,n,s,z,d:integer;

begin

read(n);

for i:=1 to n do

begin

read(a[i]);

z:=z+a[i];

end;

z:=z div n;

for i:=1 to n-1 do

begin

a[i]:=a[i]-z;

if a[i]=0 then continue;

if a[i]0 then

begin

d:=a[i]-0;

a[i]:=0;

a:=a+d;

s:=s+1;

end;

end;

write(s);

end.

第五个数据怎么过不了？输出99~~~

#include

using namespace std;

int n,a[10001],sum=0,t=0;

void go(int i)

{

if(i>n;

for(int i=1;i>a[i];

sum+=a[i];

}

sum/=n;

go(1);

cout

var

s,n,t,i:longint;

a:array[0..140] of integer;

begin

readln(n);

for i:=1 to n do

begin

read(a[i]);

s:=s+a[i];

end;

s:=s div n;

i:=1;

while i

直接与平均值逐个比较

var

i,j,k,n:longint;

a:array[1..100] of longint;

begin

readln(n);

for i:=1 to n do begin read(a[i]);k:=k+a[i];end;

k:=k div n;

for i:=1 to n-1 do

if a[i]

贪心中的水题

第五个数据过不了

program ex10;

var ave,step,i,n,j:integer; a:array[1..100]of integer;

begin

readln(n);

for i:=1 to n do

begin

read(a[i]); inc(ave,a[i]);

end;

ave:=ave div n;

for i:=1 to n do a[i]:=a[i]-ave;

i:=1; j:=n;

while (a[i]=0)and(i1) do dec(j);

while i

program dd;

var

a:array[1..10000] of longint;

m,n,i,k:integer;

tem:longint;

begin

read(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n-1 do

for k:=i+1 to n do

begin

if a[i]1) do

k:=a[i];

a[i]:=a;

a:=k;

end;

tem:=tem+a[1]+a[2];

write(tem);

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program p1123(input,output);

var ab:array [0..110] of longint;

n,i,pj,zs:longint;

begin

readln(n);

pj:=0;

for i:=1 to n do

begin

read(ab[i]);

pj:=ab[i]+pj;

end;

pj:=trunc(pj/n);

zs:=0;

for i:=1 to n-1 do

begin

if ab[i]pj then

begin

ab:=ab-(pj-ab[i]);

ab[i]:=pj;

zs:=zs+1;

end;

end;

writeln(zs);

end.

program P1012;

var

c:array[1..100]of longint;

i,j,k,l,all,n,m:longint;

begin

readln(n);

for i:=1 to n do

begin

read(c[i]);

m:=m+c[i];

end;

m:=m div n;

readln;

all:=0;

for i:=1 to n-1 do

begin

c:=c-(m-c[i]);

if m-c[i]0

then inc(all);

c[i]:=m;

end;

writeln(all);

end.

汗．．．

从rq上抄题，抄错了．．．．

庆祝、、 50T

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var n,w,i,e:longint; a:array[0..1000]of integer;

begin

readln(n);

w:=0;

for i:=1 to n do

begin

read(a[i]);

w:=w+a[i];

end;

w:=w div n;

for i:=1 to n do a[i]:=a[i]-w;

for i:=1 to n-1 do

begin

if a[i]0 then

begin

a:=a[i]+a;

inc(e);

end;

end;

write(e);

end.

program dsa;

var n,i,j,k:integer;

a,s,m:array [0..10000] of longint;

begin

read(n);

s[0]:=0;

for i:=1 to n do

begin

read(a[i]);

s[i]:=s+a[i];

end;

k:=s[n] div n;

j:=0;

for i:=1 to n do if s[i]=k * i then inc(j);

writeln(n-j);

end.

农夫山泉

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var

a:array[0..100] of longint;

s,i,n,t:longint;

begin

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,a[i]-t);

a[i]:=10;

inc(s);

end;

writeln(s);

end.

又学了几个星期，才发现这题太简单...