点这里查看
讨论 / c++AC and pascal AC 代码！！！！！！！！！！！！！！！！！！！！！！！超短易懂！！
fuck you 2016-08-30 02:45:05
点我顶贴 收藏 删除
fuck you
#1 FHJ@2016-08-30 05:54:19
回复 删除
var n,m,i,j,t:longint;

a:array[1..100]of 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;

m:=n;

for i:=2 to n do

if a[i]=a[i-1] then dec(m);

writeln(m);

write(a[1]);

for i:=2 to n do

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

end.

查看更多回复
提交回复