Alex меня немного опередил с алгоритмом, но всё же приведу свои соображения:
1. Вводите массив искомых НОМЕРОВ, например, Num[i].
2. Пусть N - количество элементов, обладающих указанным свойством.
3. Начинаете с того, что вычисляете Min=|a1-1|, где a1 - первый введенный элемент, N:=1 и Num[N]:=1.
4. Если последующие разности превышают Min и встретился еще элемент с номером i, у которого значение разности равно Min, то N увеличиваете на 1 и Num[N]:=i и т.д. до конца.
5. Если встретился i-тый элемент ai, у которого значение модуля разности с его номером меньше Min, то Min:=|ai-i|, N:=1, Num[N]:=i и далее п.4.
6. В конце вывести массив Num от i=1 до N.