[Antonio:)))]

Здравствуйте!, подскажите, как осуществить сортировку подсчетом распределения по убыванию? Данный код сортирует по возрастанию:

Код:

1 2 3 4 5 6 7 8 9 10 11

for j:=0 to 255 do c[j]:=0;  for i:=0 to n-1 do c[a[i]]:=c[a[i]]+1;  for j:=1 to 255 do c[j]:=c[j-1]+c[j];  for i:=n-1 downto 0 do   begin    b[c[a[i]]]:=a[i];    c[a[i]]:=c[a[i]]-1;   end;  for i:=0 to n-1 do    StringGrid2.Cells[i,0]:=IntToStr(b[i]);  end;

lmikle: Пользуемся тегами!!! Буду карать!!!

Как его изменить?