比赛代码 - COGS

比赛	小练习赛:A组	评测结果	AAAAAAAAAA
题目名称	明明的随机数	最终得分	100
用户昵称	Rainboy	运行时间	0.001 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-10-21 18:38:37

显示代码纯文本

program mingming;
var 
    a:array [1..1000] of integer;
    i,j,k,n:longint;
begin
  assign(input,'random.in');
   assign(output,'random.out');
   reset(input);
   rewrite(output);
	fillchar(a,0,sizeof(a));
	k:=0;
	
	read(n);
	for i:=1 to n do
		begin
			read(j);
			if a[j] <> 1 then
				begin
				a[j]:=1;
				inc(k);
				end;
				
		end;
			
			writeln(k);
	for i:=1 to 1000 do
		begin
		if a[i] = 1 then
			write(i,' ');
		end;

end.