Отправлено smav 23 ноября 2004 г. 11:19 В ответ на: Прочёл внутренности. Вот решение покороче: отправлено Крок 23 ноября 2004 г. 01:24

var
i,j:integer;
a:array[1..10000] of integer; {Массив который надо сортировать}
table:array[integer]of boolean; {Таблица для всех целых}
begin
  for i:=low(integer) to high(integer) do table[i]:=false;
   {Очистили таблицу}
 
  for i:=1 to 10000 do Table[a[i]]:=true;
  j:=0;
  for i:=low(integer) to high(integer) do 
   if table[i] then 
      begin
        a[j]:=i; 
        j:=j+1;
      end;
end.

• По Кнуту это сортировка включением. Для повторов тоже все решается — smav   (23.11.2004 11:26, 487 байт)