Главная Pascal Алгоритмы Алгоритмы поиска Минимальный элемент минимальный элемент массиваочень просто. Если это упорядоченный массив, то достаточно вернуть первое или последнее значение, в зависимости от того, как отсортированы данные, от наименьшего к наибольшему или от наибольших к наименьшим. Это очень простая задача.В случае с неотсортированным массивом, задача поиска минимального значения элемента сводиться к полному обходу всех элементов и выбора из них -минимума.
Код программы для поиска минимального, по значению, элемента неупорядоченного массива
{$CODEPAGE UTF8} program Minimal; const arrayLength = 10; var inputArray : array [1..arrayLength] of integer; minimum, i: integer; begin randomize; writeln ('Исходный массив: '); {заполнение случайными числами} for i := 1 to arrayLength do begin inputArray[i] := random(100); write (inputArray[i]:4); end; writeln; {поиск минимального значения} {считаем что первый элемент и есть минимальный} minimum := inputArray[1]; for i := 2 to arrayLength do if minimum > inputArray[i] then {если минимум больше текущего} minimum := inputArray[i]; {присваиваем ему текущее значение} write('Минимальный элемент массива ', minimum); readln; end.
Объяснение:
programm.top /pascal
Минимальный элемент массива
Главная Pascal Алгоритмы Алгоритмы поиска Минимальный элемент минимальный элемент массиваочень просто. Если это упорядоченный массив, то достаточно вернуть первое или последнее значение, в зависимости от того, как отсортированы данные, от наименьшего к наибольшему или от наибольших к наименьшим. Это очень простая задача.В случае с неотсортированным массивом, задача поиска минимального значения элемента сводиться к полному обходу всех элементов и выбора из них -минимума.
Код программы для поиска минимального, по значению, элемента неупорядоченного массива
{$CODEPAGE UTF8} program Minimal; const arrayLength = 10; var inputArray : array [1..arrayLength] of integer; minimum, i: integer; begin randomize; writeln ('Исходный массив: '); {заполнение случайными числами} for i := 1 to arrayLength do begin inputArray[i] := random(100); write (inputArray[i]:4); end; writeln; {поиск минимального значения} {считаем что первый элемент и есть минимальный} minimum := inputArray[1]; for i := 2 to arrayLength do if minimum > inputArray[i] then {если минимум больше текущего} minimum := inputArray[i]; {присваиваем ему текущее значение} write('Минимальный элемент массива ', minimum); readln; end.