吐血!竟然没看见要输出判重个数!用基数一下就OK了

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program sort;

type datatype=array[1..100] of integer;

var a:datatype;m,e,n,k:integer;

procedure quicksort(var r:datatype;low,high:integer);

var i,j,x:integer;

begin

if low=x) and (i

第一次：

Unaccepted 有效得分：0 有效耗时：0ms

{发现没有判重，囧}

第二次：

Unaccepted 有效得分：0 有效耗时：0ms

{发现没有输出判重后的长度，囧}

第三次：

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

{对于这个题目，我只能说：用手写秒杀，还要先看清题目，囧了}

At Last:

数据很弱，可以用桶，十分方便。。

菜鸟路过..

#include

int main ()

{

int i,x,y=0,n,array[1001]={0};

scanf ("%d",&x);

for (i=1;i

var a:array[1..1000]of integer; N,i,b:integer; begin read(N); for i:=1 to 1000 do a[i]:=0; for i:=1 to N do begin read(b); a:=a+1; end; b:=N; for i:=1 to 1000 do if a[i]>1 then b:=b-a[i]+1; write(b); writeln; for i:=1 to 1000 do if a[i]0 then write(i,' '); end.

水题不刷，对不起自己……

直接基数排序……就行了……

Var

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

n,Zz,i,ac:integer;

Begin

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

readln(n);

for i:=1 to n do

begin

read(Zz);

a[Zz]:=true;

end;

Ac:=0;

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

writeln(Ac);

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

End.

program m;

var

i,j,n,temp,b:longint;

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

procedure sb(l,r:integer);

var i,j,mid:integer;

begin

i:=l;j:=r;mid:=a[(l+r) div 2];

repeat

while a[i]mid do dec(j);

if ij;

if l

#include

int main ()

{int n,a[1001]={0},l,i,m=0;

scanf ("%d",&n);

for (i=1;i

为什么错了？？？哪位大牛帮我改一改？

编译通过...

├ 测试数据 01：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

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

├ 测试数据 03：运行超时...

├ 测试数据 04：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：运行超时...

├ 测试数据 06：运行超时...

├ 测试数据 07：运行超时...

├ 测试数据 08：运行时错误...| 错误号: 103 | 文件未打开

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

├ 测试数据 10：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

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

Unaccepted 有效得分：0 有效耗时：0ms

const

n=25;

type

ty=array [1..2,1..n] of longint;

var a:ty;

i,h,g,j,b,c,alt,salt,d,e,f,z:longint;

procedure quicksort (var b:ty;var s,t:longint);

var

i,j,k,x,u,v,z:longint;

begin

if sk) and (i

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

桶排序O(n)的时间啊！快！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program sssss;

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

n,i,j:longint;

procedure try(l,r:longint);

var

i,j,x,y:longint;

begin

i:=l;j:=r;x:=a[(l+r)div 2];

repeat

while

a[i]x do

dec(j);

if ij;

if l

第一次交90，交了一样的程序再次交AC，是刚开始RP低，还是今天的RP暴涨呢？？？

这题我们老师老拿来考刚入门的小朋友。。。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program pl;

var

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

i,j,n,m,max:longint;

begin

readln(n);

for i:=1 to n do

begin

read(m);

a[m]:=true;

end;

for i:=1 to 1000000 do

if a[i]=true

then

j:=j+1;

writeln(j);

for i:=1 to 1000000 do

if a[i] then

write(i,' ');

end.

直接这么弄就AC了 太方便了 哈哈....

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var

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

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

n,ans,x,i:integer;

begin

readln(n);

fillchar(v,sizeof(v),false);

for i:=1 to n do

begin

read(x);

v[x]:=true;

end;

ans:=0;

for i:=1 to 1000 do

if v[i] then

begin

inc(ans);

a[ans]:=i;

end;

writeln(ans);

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

end.

Flag 　　 Accepted

题号 　　P1316

类型(?) 　　其它

通过 　　3225人

提交 　　5942次

通过率 　　54%

难度 　　1

提交 讨论 题解

Program p1316;

var

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

n,m,b,e,i,j:integer;

begin

readln(n);

fillchar(f,sizeof(f),false);

m:=0;b:=2000;e:=0;

for i:=1 to n do

begin

read(j);

if f[j]=false then f[j]:=true

else dec(m);

inc(m);

if je then e:=j;

end;

writeln(m);

for i:=b to e do if f[i]=true then write(i,' ');

end.

很简单的计数排序，加上去重，一举两得！

我是学C的，Pascal这么难用，为什么还有那么多人学？C比Pascal灵活多了！

不习惯…………

#include

int main(){

int i,j,n,sum=0,x[1001]={0};

scanf("%d",&n);

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

第100次提交在了这样的水题上了!