Минимальный элемент массива будем искать  в массиве целых чисел. Для того чтобы осуществить поиск минимального элемента массива нужно изменить обработчик события OnClick для кнопки:

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;//номер элемента, сравниваемого с минимальным

a:array[1..10] of integer;

min:integer;//номер минимального элемента

 

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

      Минимальный элемент массива будем искать  в массиве целых чисел. Для того чтобы осуществить поиск минимального элемента массива нужно изменить обработчик события OnClick для кнопки:

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;//номер элемента, сравниваемого с минимальным

a:array[1..10] of integer;

min:integer;//номер минимального элемента

 

begin

//Введем массив(см. статью ввода массива)

for i:=1 to 10 do

//Преобразуем полученные подстроки в числа

 a[i]:=StrToInt(GetSubStr(Edit1.text,' ',i));//используем пробел в качестве разделителя

//Найдем минимальный элемент

min:=1; //пусть номер минимального элемента = 1

for i:= 2 to 10 do // начнем искать со следующего

 if a[i] < a[min] then min:=i;

Form1.caption:=IntToStr(a[min]); // выводим в заголовок

формы минимальный элемент массива

end;

 

В этом примере  «поиск минимального элемента массива»  a[min] минимальный элемент массива, а min - номер минимального элемента. Алгоритм очень простой: сравниваем каждый следующий элемент с минимальным, если он меньше минимального, то запоминаем его номер в переменной min, и продолжаем сравнивать уже с ним.

Результат смотрим ниже:

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

  Скачать исходник «поиск минимального элемента массива »:

Добавить комментарий


Защитный код
Обновить