Программа в Delphi (часть 2)

[Dronnn]

Составление и поиск данных.
Даны натуральные числа А1, А2,....А(n), которые являются перестановкой чисел 1,2....,n. n<= 100 (меньше равно). Разработать программу, которая определяет натуральные J1,J2....,J(n) такие что J(a) = i (i=1,2,.....,n).

[Serge_Bliznykov]

и в чём проблема? Создайте ещё один массив J : array[1..n] of integer;
в нём будут находится индексы. В начале проиницилизируйте его числами от 1 до n
Дальше сортируйте массив J (можно банально - пузырьком или методом простых обменов) используя при сортировки для сравнения элементов A[ J[i] ] и A[ J[j] ]
и всё! Задача решена: после сортировки получите в J нужные значения.