为什么0分?

var

n,x,i:longint;

a:array[1..1000] of longint;

begin

readln(n);

for i:=1 to n do

begin

read(x);

a[x]:=a[x]+1;

end;

for i:=1 to 1000 do

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

end.

4 条评论

  • @ 2015-07-19 22:46:13

    少输出一项吧。。。
    输出也是2行,【第1行】为1个正整数M,表示不相同的随机数的个数。【第2行】为M个用空格隔开的正整数,为从小到大排好序的不相同的随机数。

  • @ 2015-01-28 20:24:39

    Me too.

  • @ 2014-08-17 23:28:43

    woyeshi

  • @ 2013-12-11 13:10:20

    我也零分

  • 1

信息

ID
1316
难度
3
分类
其他 | 排序 点击显示
标签
递交数
9960
已通过
4873
通过率
49%
被复制
33
上传者