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

[Petruxa]

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

[Lapp]

И еще одна: надо подсчитывать количество минимумов и распечатывать не все три элемента массива, а только найденные.

Все же я приведу тут свой исправленный вариант. Он отличается тем, что поиск производится за один проход.
(Не проверено!)

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

[Гость]

помоему код klem4 проще и понятней, а особых изысков не нужно, думаю преподаватель не поймет
Все равно ОГРОМНОЕ СПАСИБО !

[Lapp]

помоему код klem4 проще и понятней, а особых изысков не нужно, думаю преподаватель не поймет
Все равно ОГРОМНОЕ СПАСИБО !

Согласен, я выше об этом уже сказал . Правда, в моем тоже можно сделать упрощение: убрать массив минимумов, оставить только индексы (подсмотрено у Клема, сам почему-то не догадался ).
Вот так:

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

А что касается сдачи кода с ошибками - твое дело.. Сам исправить не можешь?