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

@Андрей1230 · Регистрация: 26.03.2013

Разработайте модификацию алгоритма. Поиск минимального элемента в массиве в случае, когда минимальных элементов в массиве несколько и необходимо найти последний минимальный элемент. Сколько сравнений необходимо для выполнения алгоритма?

@Cyborg Drone · 31.03.2013, 18:56

Андрей1230, никакой модификации. Вся разница - при поиске минимального элемента используется не "<", а "<=". Тогда будет найден последний минимальный элемент, если есть несколько равных минимальных элементов. И, так как необходимо просканировать весь массив, то по-любому сравнений нужно на единицу меньше количества элементов массива. Алгоритм:

Реализация алгоритма, функция, возвращает номер последнего минимального элемента массива.

Pascal

function min(x: array of real): integer;
var min: real; //минимум
    i: integer; //счётчик
begin
  min := x[1]; //пока минимум - первый элемент массива
  Result := 1; //пока номер минимального элемента = 1
  for i := 2 to length(x) do begin
    if x[i] <= min then begin //если меньше или равно, то
      min := x[i]; //минимум - элемент массива x[i]
      Result := i; //номер минимального элемента = i
    end;
  end;
end;

Всего Вам доброго.

@Андрей1230 · 31.03.2013, 19:07 **[ТС]**

Сообщение от Cyborg Drone

Андрей1230, никакой модификации. Вся разница - при поиске минимального элемента используется не "<", а "<=". Тогда будет найден последний минимальный элемент, если есть несколько равных минимальных элементов. И, так как необходимо просканировать весь массив, то по-любому сравнений нужно на единицу меньше количества элементов массива. Алгоритм:

Вложение 250577

Реализация алгоритма, функция, возвращает номер последнего минимального элемента массива.

Pascal

function min(x: array of real): integer;
var min: real; //минимум
    i: integer; //счётчик
begin
  min := x[1]; //пока минимум - первый элемент массива
  Result := 1; //пока номер минимального элемента = 1
  for i := 2 to length(x) do begin
    if x[i] <= min then begin //если меньше или равно, то
      min := x[i]; //минимум - элемент массива x[i]
      Result := i; //номер минимального элемента = i
    end;
  end;
end;

Всего Вам доброго.

Спасибо

@Андрей1230 0 / 0 / 1 Регистрация: 26.03.2013 Сообщений: 8
		1
	Поиск минимального элемента в массиве 31.03.2013, 16:22. Показов 7474. Ответов 2 Метки нет (Все метки) Разработайте модификацию алгоритма. Поиск минимального элемента в массиве в случае, когда минимальных элементов в массиве несколько и необходимо найти последний минимальный элемент. Сколько сравнений необходимо для выполнения алгоритма? 0

Опции темы

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

Решение