Одномерный массив - вроде бы просто? Опции

[Petruxa]

Ребят помогите пожалуйста, второй день голову ломаю, что-то никак не выходит!
Найти три наименьших по значению элемента одномерного массива (равные не учитывать) целых чисел, введеных с клавы. Заменить их на соответствующие им индексы.
Спасибо

[hardcase]

Простите за откровенный оффтоп (в 3 часа ночи как-то на всё пофиг).
Паскаль было лень запускать (в студии проект ваял), да к тому же корректный ответ уже был размещён...
Мне просто не понравилось обилие вложенных циклов в предложенных алгоритмах. Попробовал обойтись одним-двумя.

Код

// возвращаем последовательность пар: минимум-индекс
public static IEnumerable<KeyValuePair<int,int>> FindMins(int minsCount, IEnumerable<int> sequence) {
    int min = default(int);  // максимальный минимум
    Dictionary<int, int> dict = new Dictionary<int, int>();            
    int index = -1;  // счётчик итераций
    foreach (int item in sequence) {
        index++;
        // забиваем словарь первыми minsCount элементами последовательности
        if (dict.Count < minsCount && !dict.ContainsKey(item)) {
            dict.Add(item, index);
            min = (min != default(int) ? (min < item ? item : min) : item);
            continue;
        }
        // если следующий элемент меньше текущего (максимального) минимума
        //   перетряхиваем словарь
        if (item < min && !dict.ContainsKey(item)) {
            dict.Remove(min);  // удаляем старый минимум
            dict.Add(item, index);  // добавляем новый
            // обновляем максимальный минимум
            min = item;
            foreach (int dictItem in dict.Keys) {
                min = min < dictItem ? dictItem : min;
            }
        }
    }
    return dict; // возвращаем последовательность минимальных элементов и их индексов
}

Полагаю из имён методов ясно их назначение. Кроме того можно избавиться от вложенного цикла, используя сортированный список из ключей.

Ещё была мысль тупо отсортировать по возрастанию массив квик-сортом с сохранением начальных позиций элементов, а потом взять minsCount первых неравных элементов...... но я уснул на клаве......