Значение поменяй в соотстветсвие диапазону.
const M = 100;
var n,i,d:longint;
a:array[-M..M] of longint;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
fillchar(a,sizeof(a),0);
read(n);
for i:=1 to n do
read(d);
inc(a[d]);
end;
for i:=-M to M do
for d:=1 to a[i] do
write(i,' ');
close(input);
close(output);
end.
Значение поменяй в соотстветсвие диапазону.
const M = 100;
var n,i,d:longint;
a:array[-M..M] of longint;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
fillchar(a,sizeof(a),0);
read(n);
for i:=1 to n do
begin
read(d);
inc(a[d]);
end;
for i:=-M to M do
begin
for d:=1 to a[i] do
write(i,' ');
end;
close(input);
close(output);
end.