记录编号 342867 评测结果 AAAAAAAAAA
题目名称 排序测试 最终得分 100
用户昵称 Gravatarbb 是否通过 通过
代码语言 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.