Сортировка карманная
Как сортировать массив карманной сортировкой?
сортируется массив A размером N чисел. procedure sort3; var c:array[0..100] of integer; i,j,k:integer; begin for i:=0 to 100 do c[i]:=0; for i:=1 to n do inc(c[a[i]]); k:=0; for i:=0 to 100 do for j:=1 to c[i] do begin inc(k); a[k]:=i; end; end;
