记录编号 | 342334 | 评测结果 | AAAAAAAAAA | ||
---|---|---|---|---|---|
题目名称 | 排序测试 | 最终得分 | 100 | ||
用户昵称 | wzz | 是否通过 | 通过 | ||
代码语言 | Pascal | 运行时间 | 9.443 s | ||
提交时间 | 2016-11-08 12:44:15 | 内存使用 | 34.48 MiB | ||
var a:array[-1000..10000000]of longint; n,i,j,k,b,c:longint; begin assign(input,'sorttest.in'); reset(input); assign(output,'sorttest.out'); rewrite(output); read(n); for i:=-100 to 2000005 do a[i]:=-1; for i:=1 to n do begin read(b); inc(a[b]); end; for i:=-100 to 2000005 do for j:=0 to a[i] do write(i,' '); close(input); close(output); end.