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

[Petruxa]

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

[Lapp]

Пока смотрел код volvo, нашел еще одну ошибку у себя..
Ну и, заодно, переделал на случай поиска произвольного количества минимумов (L)

  L:=3;
  Max:=1;
  for i:=2 to N do if a[i]>Max then Max:=i;  { находим максимальный элемент }
  M:=1;  { Общее число минимальных элементов }
  for j:=1 to L do Min[j]:=Max  { подготовка массива номеров минимальных элементов }
  for i:=2 to N do 
    for j:=1 to L do if a[i]<a[Min[j]] then begin  { найден новый минимальный элемент }
      for k:=L-1 downto j do Min[k+1]:=Min[k];
      Min[j]:=i;
      if (M=j) and (M<L) then Inc(M);  { увеличиваем число минимальных элементов }
      Break
    end;
  for j:=1 to M do a[Min[j]]:=Min[j];  { замена минимальных элементов на их индексы }