Поиск минимальных элементов массива

[Katerina_K]

Добрый день!Не могли бы вы подсказать как найти минимальные элементы и их индексы.Как найти один минимальный элемент знаю,но что делать дальше не понимаю.Например,допустим у нас несколько единиц и их надо вывести.

const
     N=10;
var i,min,indmin:integer;
     Mass:array [1..N] of integer;  
begin
  min:=1;
  indmin:=1;
  for i:=1 to N do
  if Mass[i]<Mass[min] then
  min:=Mass[i];
  indmin:=i;
end;

[Serge_Bliznykov]

Катенька, вы всё перепутали. Если в переменной хранится значение, то, в данном случае, НЕЛЬЗЯ использовать переменную для указания НОМЕРА элемента (индекса).

вот так можно найти ОДНО минимальное значение (используем переменную для хранения минимального значения):

  min:=Mass[1];
  for i:=2 to N do
  if Mass[i]<min then
       min:=Mass[i];
  WriteLn('Минимальное значение = ', min);

или вот так можно найти ОДНО минимальное значение (используем переменную для хранения ИНДЕКСА минимального значения):

  indmin:=1;
  for i:=2 to N do
    if Mass[i]<Mass[indmin] then
       indmin:=i;
  WriteLn('Минимальное значение = ', Mas[indmin], ' имеет элемент с индексом ', indmin);

разберитесь, чем отличаются эти примеры, как они работают!


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

вот так, например:

  min:=Mass[1];
  for i:=2 to N do
  if Mass[i]<min then
       min:=Mass[i];

 {второй проход, поиск элементов, совпадающих с минимальным}
  WriteLn('Минимальное значение = ', min, ' имеют элементы с индексами: ' );
  for i:=1 to N do
  if Mass[i] = min then
      WriteLn('индекс = ', i);

если есть вопросы - спрашивайте...

[Аватар]

За один проход + массив индексов так можно

const N=10;
var i,m: integer;
    Mass,Indexs: array [1..N] of integer;
begin
  m:=1; Indexs[1]:=1;
  for i:=2 to N do
    if Mass[i]<=Mass[Indexs[1]] then begin
      if Mass[i]<Mass[Indexs[1]] then m:=1 else Inc(m);
      Indexs[m]:=i;
    end;
// в Indexs[i] i от 1 до m индексы минимального элемента
// значение минимального элемента в Mass[Indexs[1]]

[Serge_Bliznykov]

За один проход + массив индексов так можно

можно то можно, но не уверен, что автору топика это будет просто и понятно

А так решение вполне себе годное!!

[Katerina_K]

Спасибо большое за подробное объяснение!вроде поняла.

[Serge_Bliznykov]

Katerina_K, пожалуйста.

Попытайтесь рассмотреть/разобрать код (с) Аватар из пост #3
Там задача решается с помощью дополнительного массива, в котором хранятся нужные индексы, поэтому задача решается за один проход по массиву.
Думаю, что Вам будет полезно.
Успехов в учёбе!