Поиск максимального (минимального) элемента в массиве с запоминанием его положения в массиве
Задано: массив A=(a1,a2,...,an).
Найти: max (min) элемент массива A и его индекс.
Исходные данные:
N - размер массива;
A - массив размером N;
Результат:
A_max максимальный элемент массива A;
K - его индекс.
Вспомогательная переменная: I - индекс управляющая переменная цикла.
Procedure MAX_MAS1(n:integer; A :mas; var A_max :real; var K byte);
{ процедура поиска максимального элемента массива и его номера }
begin A_max := A[1]; K := 1;
for i := 2 to n do
If A_max<A[i] then begin K := i; A_max := A[i] end;
end;
Примечание: Если в массиве несколько max элементов (имеют одно и то же значение), то в K будет запоминаться первый из них, а чтобы запоминался индекс последнего нужно заменить условие на A_max<=A(I). Поиск минимального элемента аналогичная процедура.
Опубликовал Kest
November 12 2008 21:16:47 ·
1 Комментариев ·
20848 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Алексей May 25 2011 11:07:02
Спасибо
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
