编译通过...

├ 测试数据 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

water water water water water water water water water water

var i,m,n,s:longint;

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

begin

readln(n);

s:=0;

m:=0;

for i:=1 to n do begin

read(a[i]);

inc(s,a[i]);

end;

s:=s div n;

for i:=1 to n-1 do

if a[i]s then begin

inc(m);

inc(a,a[i]-s);

end;

write(m);

end.

var

n,c,i,t,j,k:integer;

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

begin

t:=0;

readln(n);

for i:=1 to n do

begin

read(a[i]);

t:=t+a[i];

end;

j:=t div n;

for i:=1 to n do

if a[i]j then begin

k:=j-a[i];

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

a:=a-k;

c:=c+1;

end;

writeln(c);

end.

哪错了额?? 晕

老难了。。我做不来。。

18行

虽然我是菜鸟，但为什么我没法下手的题你们都认为很简单！？

var

i,j,ls,pj,sum,n,sb:longint;

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

begin

readln(n);

for i:=1 to n do begin

read(a[i]);sum:=sum+a[i];

end;

pj:=sum div n;

for i:=1 to n-1 do

if a[i]pj then begin

{水题一道{ ls:=pj-a[i];

{水题一道} a[i]:=pj;

{水题一道} a:=a-ls;

{水题一道} inc(sb);

end;

writeln(sb);

end.

编译通过...

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

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

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

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

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

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

编译通过...

├ 测试数据 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

编译通过...

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

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

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

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

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

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

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

program ex;

var a:array[1..100000] of longint;

n,i,z,pj,c,g:longint;

begin

readln(n);

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

pj:=z div n;

for i:=1 to n do

begin

if a[i]pj then

begin

c:=pj-a[i];

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

a:=a-c;

g:=g+1;

end;

end;

writeln(g);

end.

郁闷，原来是水货

“只求次数，移动的牌数为负也没人知道”显然正解

庆祝双星

• -!这道题和我想象中的相差十万八千里

编译通过...

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

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

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

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

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

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

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

题目要认真看，

其实很简单

#include

using namespace std;

int main()

{

int n,i,j,s,k,l;

cin>>n;

int a[n+1];

k=0;

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

k=k+a[i];

}

k=k/n; s=0;l=0;

for(i=1;i

program ex;

var a:array[1..100000] of longint;

n,i,z,pj,c,g:longint;

begin

readln(n);

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

pj:=z div n;

for i:=1 to n do

begin

if a[i]pj then

begin

c:=pj-a[i];

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

a:=a-c;

g:=g+1;

end;

end;

writeln(g);

end.

#include

using namespace std;

int main()

{

int n,i,sum=0,num=0;

int a[200]={};

cin>>n;

for(i=0;i>a[i];

sum+=a[i];

}

sum=sum/n;

for(i=0;isum)

{

a+=a[i]-sum;

a[i]=sum;

num++;

}

else if(a[i]

编译通过...

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

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

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

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

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

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

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

program hly;

const cmax=100;

var

n,sum,average,ans:longint;

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

procedure init;

var

i:longint;

begin

fillchar(a,sizeof(a),0);

readln(n);

sum:=0;average:=0;ans:=0;

for i:=1 to n do

begin

read(a[i]);

sum:=sum+a[i];

end;

average:=sum div n;

end;

procedure work;

var

i:longint;

begin

for i:=1 to n do

begin

if a[i]average then

begin

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

inc(ans);

end;

end;

writeln(ans);

end;

begin

init;

work;

end.

我菜。。这么水的题目都要看题解才会。。