比赛 小练习赛:A组 评测结果 WWWWWWWWWW
题目名称 明明的随机数 最终得分 0
用户昵称 筽邝 运行时间 0.001 s
代码语言 Pascal 内存使用 0.15 MiB
提交时间 2014-10-21 19:16:02
显示代码纯文本
program cojs74;
var
  t,n,i:longint;
  a:array[1..1000]of boolean;

begin
assign(input,'random.in');reset(input);
assign(output,'random.out');rewrite(output);

  readln(n);
  fillchar(a,sizeof(a),0);
  for i:=1 to n do
  begin
    read(t);
    a[t]:=true;
  end;
  for i:=1 to 1000 do
    if a[i] then write(i,' ');
  writeln;

close(input);close(output);
end.