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

[Petruxa]

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

[klem4]

Действительно, тогда вот что сочинил:

for j := 1 to 3 do begin

    i := 1; min := 1;

    if j > 1 then begin
      while (i <= n) and (A[i] <= A[M[j - 1]]) do inc(i);
      min := i;
      i := i + 1;
    end;

    while (i <= n) do begin
      if ((j = 1) and (A[i] < A[min])) OR (j > 1) and (A[i] < A[M[j - 1]]) then
       min := i;
      inc(i);
    end;

    M[j] := min;

  end;

[Lapp]

Действительно, тогда вот что сочинил:

Можно и так
Только исправь строчку:

      while (i < n) and (A[i] <= A[M[j - 1]]) do inc(i); { убрано равентсво }

- иначе вылетает за пределы массива, если все его элементы равны.

Но все же надо как-то считать, сколько минимумов найдено - иначе не разберешься в результатах (например, проверь на 1, 1, 1, 1).. Или, как volvo, по признаку (-1) ..