题解 - Vijos

0

zxc2231603 LV 8 @ 2009-08-04 18:13:28

编译通过...

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

0

李肥888 LV 10 @ 2009-08-03 22:28:21

水中之极品。。。。。

0

zm110 LV 9 @ 2009-08-01 16:36:41

好水！

0

ppy LV 7 @ 2009-08-01 11:19:53

Easy!!

编译通过...

├ 测试数据 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,t,n:integer;

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

begin

readln(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n do

inc(b[a[i]]);

j:=1;

for i:=1 to 1000 do

if b[i]0

then

begin

n:=n-(b[i]-1);

a[j]:=i;

inc(j);

end;

writeln(n);

for i:=1 to n do

write(a[i]);

end.

0

dts LV 8 @ 2009-07-31 14:25:31

var n:array[1..1000]of boolean;

x,i,y,o:integer;

begin

readln(x);

o:=0;

fillchar(n,sizeof(n),0);

for i:=1 to x do

begin

read(y);

n[y]:=TRUE;

end;

for i:=1 to 1000 do if n[i]FALSE then inc(o);

writeln(o);

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

end.

0

527971925 LV 10 @ 2009-07-27 00:17:44

我汗，没认真看题....要输出个数.....谨记！

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

0

iphone3gs LV 8 @ 2009-07-26 16:12:14

超级简单的题目，开一个1000的数组值都为0、1，连排序都免了，一次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 n,i,a:integer;

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

begin

readln(n);

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

for i:=1 to n do begin

read(a);

inc(b[a]);

if b[a]>1 then b[a]:=1;

end;

n:=0;

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

writeln(n);

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

end.

0

junfpc LV 8 @ 2009-07-24 20:04:02

1次AC,EASY,用boolean数组连排序都免了...

编译通过...

├ 测试数据 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,a,t,c:integer;

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

begin

read(n);

c:=0;

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

for a:=1 to n do

begin

read(t);

if s[t]=false then

begin

s[t]:=true;

c:=c+1;

end;

end;

writeln(c);

for a:=1 to 1000 do

if s[a] then

write(a,' ');

end.

0

夏始春余 LV 7 @ 2009-07-23 17:50:26

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program ex1;

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

i,j,n,m,t: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[j]

0

空 LV 7 @ 2009-07-23 12:59:14

这种水题，直接桶就得了。

0

zyyfriends LV 6 @ 2009-07-20 09:40:20

#include

int main()

{

long a[105],i,j,b[105],c,n,t,s=0;

scanf("%d",&n);

for(i=1;i

0

Xu Taotao LV 9 @ 2009-07-15 15:55:38

program dsa;

var i,n,z,x:integer;

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

begin

read(n);

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

z:=0;

for i:=1 to n do

begin

read(x);

if a[x]=0 then

begin

a[x]:=1;

inc(z);

end;

end;

writeln(z);

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

end.

0

bi1_1 LV 9 @ 2009-07-11 19:54:43

信曾哥，过水题

0

gsrq LV 10 @ 2009-10-09 16:51:23

编译通过...

├ 测试数据 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,n:longint;

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

begin

fillchar(a,sizeof(a),false);

readln(n);

for i:=1 to n do

begin

read(k);

a[k]:=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.

0

lqyzzyx LV 4 @ 2009-07-01 18:21:50

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.

0

qbqwer LV 8 @ 2009-06-10 11:59:13

program p1316;

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

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

n,i,b:integer;

begin

readln(n);

fillchar(c,sizeof(c),false);

for i:=1 to n do

begin

read(b);

a:=b;

c:=true;

end;

b:=1000;

for i:=1 to 1000 do

if not c[i] then

dec(b);

writeln(b);

for i:=1 to 1000 do

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

end.

好像太冗杂了........

交了之后才发现是1 到1000 没有0......

0

20040428mj LV 3 @ 2009-05-29 10:44:54

program vijos1316;

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

b,c,d,i,j,k:longint;

begin

readln(b);

for i:=1 to 100 do

begin

readln(a[i]);

for j:=1 to 100 do

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

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

end;

readln;

end.

0

549582803 LV 7 @ 2009-05-24 16:23:42

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

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

begin

readln(n);

for i:=1 to n do

begin

inc(k);

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.

0

police~ LV 5 @ 2009-05-24 15:59:16

水题...

编译通过...

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

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.

0

柯博瀚 LV 5 @ 2009-05-19 13:57:41

const

maxn = 1000;

var

k:array[1..maxn] of integer;

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

BEGIN

read(n);

fillchar(k,sizeof(k),0);

for i := 1 to n do

begin

read(x);

inc(k[x]);

end;

t:=0;

for i := 1 to maxn do

if k[i] > 0 then inc(t);

writeln(t);

for i := 1 to maxn do

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

END.

题解

373 条题解

明明的随机数

信息

状态

开发

支持

题解

373 条题解

明明的随机数

信息

状态

开发

支持

还没有账户？

登录