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.
#2 草泥马萌咩咩@2015-05-21 21:28:07
33257
回复
删除
我的更短
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.
#5 Sentinel Prome@2015-07-02 06:00:11
33320
回复
删除
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.
其实很简单