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