编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

比较难看的程序...

var

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

intchu:integer;

intmo:integer;

i,j,x:integer;

t:integer;

begin

read(intchu);

readLn;

intmo:=intchu;

for i:=1 to intchu do

read(ar[i]);

for i:=1 to intchu-1 do

for j:=i+1 to intchu do

if ar[i] > ar[j] then begin

t:=ar[j];

ar[j]:=ar[i];

ar[i]:=t;

end;

for i:=1 to intchu-1 do begin

if ar[i]=ar then begin

ar[i]:=0;

dec(intmo);

end;

end;

writeLn(intmo);

for i:=1 to intchu do begin

if ar[i]0 then

write(ar[i],' ');

end;

end.

program p1316;

var

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

n,i,sum,total:longint;

first:boolean;

begin

readln(n);

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

for i:= 1 to n do

begin

read(sum);

inc(a[sum]);

end;

total:=0;

for i:= 1 to 1000 do

if a[i]0 then inc(total);

first:=true;

writeln(total);

for i:= 1 to 1000 do

if (a[i]0) and (first) then begin write(i);first:=false; end

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

writeln;

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 mmdcjs;

var

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

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

i,n,x,j:longint;

begin

read(n);

for i:=1 to n do

read(sj[i]);

for i:=1 to n do

for j:=(i+1) to n do

if sj[i]>sj[j] then

begin

x:=sj[i];sj[i]:=sj[j];sj[j]:=x;

end;

for i:=1 to n do

y[i]:=true;

x:=0;

for i:=1 to n do

begin

if y[i]=true then

for j:=(i+1) to n do

if (sj[i]=sj[j]) and (ij) then

y[j]:=false;

if y[i]=true then

x:=x+1;

end;

writeln(x);

for i:=1 to n do

if y[i]=true then

write(sj[i],' ');

end.

嘿嘿，大家看我的，包你100分！

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

i,j,t,n,s:longint;

begin

readln(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;

for i:=1 to n-1 do

if a[i]=a then begin a[i]:=0;s:=s+1;end;

writeln(n-s);

for i:=1 to n do

if a[i]0 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

编译通过...

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

var

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

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

begin

readln(n);

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

for i:=1 to n do

begin

read(m);

a[m]:=true;

end;

j:=0;

for i:=1 to 1000 do

if a[i] then

inc(j);

writeln(j);

for i:=1 to 1000 do

if a[i] then

write(i,' ');

end.

Flag 　　 Accepted

题号 　　P1316

类型(?) 　　其它

通过 　　5110人

提交 　　9581次

通过率 　　53%

难度 　　1

提交 讨论 题解

var n,i,a,s:longint;

b,c:Array [1..1000] of longint;

begin

readln(n);

for i:=1 to n do

begin

read(a);

b[a]:=1;

end;

for i:=1 to 1000 do

if b[i]=1 then begin inc(s);c:=i; end;

writeln(s);

for i:=1 to s do

write(c[i],' ');

writeln;

end.

program random(input,output);

var a,b,i,j:integer;

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

begin

for a:=1 to 1000 do

shu[a]:=false;

readln(a);

j:=0;

for i:=1 to a do

begin

read(b);

shu:=true;

end;

for i:=1 to 1000 do

if shu[i] then j:=j+1;

writeln(j);

for i:=1 to 1000 do

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

end.

var

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

n,i,s,t,j:longint;

begin

readln(n); s:=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

else if (a[i]=a[j]) and (a[i]0)and(a[j]0)then a[j]:=0;

for i:=1 to n do

if a[i]=0 then s:=s-1;

writeln(s);

for i:=1 to n do

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

writeln;

end.

出题的人是卖水的

program p1316(input,output);

var

n,m,i,j:integer;

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

begin

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

readln(n);

m:=0;

for i:=1 to n-1 do

begin

read(j);

if b[j]j

then begin b[j]:=j;m:=m+1; end;

end;

readln(j);

if b[j]j

then begin b[j]:=j;m:=m+1; end;

writeln(m);

for i:=1 to 1000 do

if b[i]0

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

writeln;

end.

不需要排序

哈..

终于自己可以大叫一声

好水！！！！！！！！！！！！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var n,i,j,k,l:integer;

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

begin

readln(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n-1 do

for j:=1+1 to n do

if (a[i]=a[j])and(ij) then a[j]:=0;

i:=0;

repeat

i:=i+1;

if a[i]=0 then begin

for j:=i+1 to n do

a[j-1]:=a[j];

n:=n-1;

end;

until i=n;

for i:=1 to n-1 do

for j:=1+i to n do

if a[i]>a[j] then begin

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

end;

l:=n;

i:=0;

repeat

i:=i+1;

if a[i]=0 then l:=l-1;

until i=n;

writeln(l);

for i:=1 to n do

if a[i]0 then

write(a[i],' ');

end.

#include

using namespace std;

int main()

{

int n,a[200],s[200],tot=1;

bool b[1500];

cin>>n;

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

for(int i=1;i

天啊...我的一颗星纪念+100次提交纪念..

居然...居然...是水题

这不是计数排序吗？

简单的筒排

一便AC

program P1316;

var

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

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

begin

　　 readln(n);

　　 for i:=1 to n do

　　　　 read(data[i]);

　　 for i:=1 to n-1 do

　　　　 for j:=i+1 to n do

　　　　　　 if data[i]>data[j] then begin

　　　　　　　　tmp:=data[i];

　　　　　　　　data[i]:=data[j];

　　　　　　　　data[j]:=tmp;

　　　　　　 end;

　　 m:=n;

　　 for i:=1 to n do begin

　　　　 j:=i+1;

　　　　 if data[i]=data[j] then begin dec(m);data[i]:=-1;end;

　　 end;

　　 writeln(m);

　　 for i:=1 to n do

　　　　 if data[i]>-1 then write(data[i],' ');

　　 writeln;

end.

第一次天真的快排.........

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

第二次线性排序AC....

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

本想挣点AC，结果......

水太深了也淹死人......

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program p1316;

var

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

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

i,n,s:integer;

begin

s:=0;

fillchar(b,sizeof(b),false);

readln(n);

for i:=1 to n do

begin

read(a[i]);

b[a[i]]:=true;

end;

for i:=1 to 1000 do

if b[i] then inc(s);

writeln(s);

for i:=1 to 1000 do

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

end.

水题,一次AC.

水中之极品。。。。。