Помогите, пожалуйста, разобраться в этой задаче.
Пусть вводится 10 произвольных имен. Необходимо распечатать их в алфавитном порядке. Попытайтесь решить задачу, не сортируя сами имена. Поскольку требуется просто распечатать их в алфавитном порядке, заведите массив, содержащий порядковые номера имен. При необходимости перестановки переставляйте не сами имена, а их порядковые номера. Такой подход особенно удобен, когда приходится сортировать сложные и "громоздкие" объекты.

Код

type  str20 = string[20]; var  Names: array[1..N] of str20;  // массив строк (имён)  Indices: array[1..N] of integer;  // массив индексов сортируемых элементов function StrComp (Key1, Key2: String): Integer; { Результат функции: 0, если строка1 = строка2 -1, если строка1 < строка2 1, если строка1 > строка2 } var  i, min, c, len1, len2: integer; begin     c := 0;     len1 := length (Key1);     len2 := length (Key2);     min := len1;     if min > len2 then        min := len2;     for i := 1 to min do     begin          c := ord (Key1[i]) - ord (Key2[i]);          if c <> 0 then             break;     end;     if c = 0 then       { Если с=0, то начала строк совпадают, значит больше та, которая длиннее }       StrComp := len1 - len2     else       StrComp := c; end; Function Compare (Name1, Name2: str20): integer; // Функция сравнения для сортировки имён begin     Compare := StrComp (Name1 , Name2) end;

Код

Для упорядочивания по возрастанию ставить условие Compare (Names[i], Names[j]) > 0 В самой процедуре сортировки меняешь местами не элементы Names[i] и Names[j], а индексы Indices[i] и Indices[j]. В результате будешь выводить имена по индексам массива Indices. Т.е. массив Names останется нетронутым, зато вывод его элементов - по возрастанию.

Можно применить любой вид сортировки:
простой, пузырьком, быстрой и другими.
Смотри здесь: Как упорядочить массив по возрастанию?

Цитата

Необходимо распечатать их в алфавитном порядке

Цитата

не сортируя сами имена.

...........????

Цитата

..????

Написано же, что с помощью вспомогательного массива.