记录编号 | 342867 | 评测结果 | AAAAAAAAAA | ||
---|---|---|---|---|---|
题目名称 | 排序测试 | 最终得分 | 100 | ||
用户昵称 | bb | 是否通过 | 通过 | ||
代码语言 | Pascal | 运行时间 | 8.881 s | ||
提交时间 | 2016-11-08 20:00:17 | 内存使用 | 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:=1 to n do begin read(b); inc(a[b]); end; for i:=-1000 to 2000005 do for j:=1 to a[i] do write(i,' '); close(input); close(output); end.