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

[Petruxa]

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

[Lapp]

Проверь на массиве 1, 2, 3, 4
Твоя прога выдает индексы: 1, 1, 1

Добавлено через 5 мин.
Посмотри - я тоже сначала засовывал в минимумы первый элемент.
А потом сделал так: сначала нахожу максимальный элемент, и его использую как начальный.
В твоем случае нужно примерно так:

  Max :=1;
  for i:=2 to n do if a[i]>a[Max] then Max:=i;
  for j := 1 to 3 do begin
    min := Max;

Или предложи другой выход..