点这里查看
讨论 / pascal解题
Heartbeat 2015-05-08 04:30:43
点我顶贴 收藏 删除
var n,m,i,j,k,p:integer; a:array[1..100] of integer;

begin

readln(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n-1 do

begin

p:=i;

for j:=i+1 to n do

if a[p]>a[j] then

p:=j;

k:=p;

m:=a[i];

a[i]:=a[p];

a[p]:=m;

end;

begin

m:=0;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]=a[j] then

a[j]:=0;

for i:=1 to n do

if a[i]<>0 then

m:=m+1;

write(m);

writeln;

for i:=1 to n do

if a[i]<>0 then

write(a[i],' ');

end;

end.

#1 范世祎@2015-05-11 05:00:46
回复 删除
和你做的一样
#2 草泥马萌咩咩@2015-05-21 21:28:07
回复 删除
我的更短

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

i,j,k,l,x,n:longint;

begin

readln(n);

for i:=1 to n do

begin

read(x);

a[x]:=1;

end;

for i:=1 to 1000 do

if a[i]>0 then k:=k+1;

writeln(k);

for i:=1 to 1000 do

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

end.

#3 孙筠琪@2015-05-21 21:28:58
回复 删除
sb
#4 草泥马萌咩咩@2015-05-21 21:29:59
回复 删除
希望不文明的网友不要进来

#5 Sentinel Prome@2015-07-02 06:00:11
回复 删除
var a:array[1..1000]of 0..1; i,ans,n,x:longint;

begin

readln(n);

for i:=1 to n do

begin

read(x);

if a[x]=0 then

begin

inc(ans);

a[x]:=1;

end;

end;

writeln(ans);

for i:=1 to 1000 do

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

end.

其实很简单

查看更多回复
提交回复