原来 平衡树 并非如此强大...

Matt killed p1316 with NUCLEAR　WEAPON

VAR A:array[1..1000] of boolean;

t,i,n:integer;

begin

for i:=1 to 1000 do

a[i]:=false;

readln(n);

for i:=1 to n do

begin read(t);a[t]:=true;end;

t:=0;

for i:=1 to 1000 do if a[i] then inc(t);

writeln(t);

for i:=1 to 1000 do if a[i] then write(i,' ');

end.

var

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

i,k,n,s:integer;

begin

readln(n);

s:=0;

for i:= 1 to n do

begin

read(k);

a[k]:=1;

end;

for i:= 1 to 1000 do

if a[i]=1

then s:=s+1;

writeln(s);

for i:= 1 to 1000 do

if a[i]=1

then write(i,' ');

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

呃~

其实挺简单的！！！

嘻嘻~@_@

var s,j,q,i,n,k:longint;

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

begin

readln(n);

for i:=1 to n do

begin

k:=k+1;

read(a[k]);

q:=0;

for j:=1 to k-1 do if a[k]=a[j] then q:=1;

if q=1 then k:=k-1;

end;

writeln(k);

for i:=1 to k-1 do

for j:=i+1 to k do

if a[i]>a[j] then

begin

s:=a[i];

a[i]:=a[j];

a[j]:=s;

end;

for i:=1 to k do

write(a[i],' ');

readln;

readln

end.

var

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

i,j,k,n:integer;

begin

k:=0;

fillchar(a,sizeof(a),true);

readln(n);

for i:=1 to n do

begin

read(j);

if a[j] then begin inc(k); a[j]:=false; end;

end;

readln;

writeln(k);

for i:=1 to 1000 do if a[i]=false then write(i,' ');

writeln;

end.

program suijishu;

var a:array[0..1000] of integer;

t,i,n,j,m:integer;

begin

read(n);

for i:=1 to n do read(a[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

begin

for i:=1 to n do

if a[i]a Then

m:=m+1;

writeln(m);

for i:=1 to n do

if a[i]a then

write(a[i],' ');

end;

end.

#include

int a[1001]={0};

int main (){

int n;

scanf ("%d",&n);

int i,k,s=0;

for (i=0;i

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

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

n,i,c,j,l,m:integer;

begin

readln(n);

for i:=1 to n do

begin

read(a[i]);

b[i]:=a[i];

end;

for i:=1 to n do

for j:=i+1 to n do

if a[i]=b[j] then b[j]:=0;

for i:=1 to n do

if b[i]=0 then begin

for m:=i to n do begin

a[m]:=a[m+1];

b[m]:=b[m+1];

end;

n:=n-1;

end;

writeln(n);

for i:=1 to n do

for m:=i to n do

if a[i]>a[m] then begin l:=a[i];

a[i]:=a[m];

a[m]:=l;

end;

for i:=1 to n do

begin

write(a[i]);

end;

end.

问大家个事 这段代码提交时有问题

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

├ 测试数据 02：答案错误...程序输出比正确答案长

├ 测试数据 03：答案错误...程序输出比正确答案长

├ 测试数据 04：答案错误...程序输出比正确答案长

├ 测试数据 05：答案错误...程序输出比正确答案长

├ 测试数据 06：答案错误...程序输出比正确答案长

├ 测试数据 07：答案错误...程序输出比正确答案长

├ 测试数据 08：答案错误...程序输出比正确答案长

├ 测试数据 09：答案错误...程序输出比正确答案长

├ 测试数据 10：答案错误...程序输出比正确答案长

#include

using namespace std;

int a[101];

int main()

{

int n,i,j,t,c;

cin>>n;

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

for(i=1;i

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

一次AC

var n,sum,i,a:integer;

s:array[0..1000]of boolean;

begin

readln(n);

fillchar(s,sizeof(s),false);

sum:=n;

for i:=1 to n do

begin

read(a);

if s[a] then dec(sum)

else s[a]:=true;

end;

writeln(sum);

for i:=0 to 1000 do

if s[i] then write(i,' ');

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program mingming;

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

b:array[1..100] of boolean;

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

m:boolean;

begin

readln(n);

for i:=1 to n do

begin read(a[i]);b[i]:=true;end;

readln;

k:=n;

for i:=1 to n do

begin

t:=a[i];

for j:=i to n do

if (t=a[j])and(ji)and(b[j]=true) then begin

b[j]:=false;dec(k);

end;

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then begin t:=a[i];a[i]:=a[j];a[j]:=t;

m:=b[i];b[i]:=b[j];b[j]:=m; end;

writeln(k);

for i:=1 to n do

if b[i]=true then

write(a[i],' ');

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

我R 提交了8回。。。

AC率啊~~~

#include

using namespace std;

int main() {

int n,m,i,a;

bool num[1001]={false};

cin>>n,m=n;

for(i=0;i>a,num[a]) m--; else num[a]=true;

cout

program suiji;

var n,i,k:integer;

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

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

begin

assign(input,'random.in');

reset(input);

assign(output,'random.out');

rewrite(output);

fillchar(b,sizeof(b),0);

readln(n);

for i:=1 to n do

begin

read(a[i]);

b[a[i]]:=1;

end;

k:=0;

for i:=1 to 1000 do

if b[i]=1 then inc(k);

writeln(k);

for i:=1 to 1000 do

if b[i]0 then write(i,' ');

readln;

close(input);

close(output);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

此题目乃是一题水题,我们可以认认真真地做此题,LOOK:

第一， 就是用数组去存明明的一些LJ数。

20 40 32 67 40 20 89 300 400 15

第二， 用2个循环 for I:=1 to n do for j:=k to n do，好了，如果你是for I:=1 to n do for j:=k to n do这样的话你肯定就错错错错错错错错错错错错错错，而且是大错特错错错错错错错错错

所以最后是0，00000，000000000。你看看，一定要for I:=1 to n do for j:=k+1 to n do 才能保证不回把当前列删掉。最后，用大家都会用的排序——选择排序。对了，要把没有重复的数字要累加，最后要判断他是否大于0。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

好水的题………………一次AC

读入预处理 判断是否已经存过

然后排序输出

program p1316;

var a,b:array[1..1000] of integer;

　　i,n,k,t:integer;

begin

readln(n);

for i:=1 to n do

begin

read(k);

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

end;

t:=0;

for i:=1 to 1000 do if a[i]0 then begin t:=t+1;b[t]:=i;end;

writeln(t);

for i:=1 to t-1 do write(b[i],' ');

write(b[t]);

end.

program p1316;

var a,b:array[1..1000] of integer;

i,n,k,t:integer;

begin

readln(n);

for i:=1 to n do

begin

read(k);

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

end;

t:=0;

for i:=1 to 1000 do if a[i]0 then begin t:=t+1;b[t]:=i;end;

writeln(t);

for i:=1 to t-1 do write(b[i],' ');

write(b[t]);

end.