Чет про программирование / практика / 11) Карманная сортировка

Карманная сортировка

randomize;

for i:=1 to n do begin

a[i] := random(100);

Write(a[i], ' ');

end;

writeln;

for i := 1 to n do

inc(sort[a[i]]);

for i:=1 to 100 do

if sort[i] <> 0 then

for j := 1 to sort[i] do

Write(i, ' ');

readln;