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

• Найти значение максимального элемента массива.

Алгоритм содержит три пункта:

1. Максимальным элементом считаем первый элемент: max=A[1].

2. Начиная со второго элемента, сравниваем имеющийся максимальный элемент max с очередным элементом массива A[i].

3. Если очередной элемент массива больше имеющегося максимального элемента, то это и есть новый максимальный элемент max=A[i].

Фрагмент программы:

Var  max: integer; {значение максимального элемента массива}

…

Begin

...

{1} max:=A[1];

{2} for i : =2  to  n  do

{3} if A[i]>max then max:=A[i];

…

• Найти min и max значения элементов массива.

Фрагмент программы:

Var  max, min : integer; {значение максимального и минимального элементов массива}

…

Begin
...
max:=A[1];

mix:=A[1];

for i :=2  to  n  do

if  A[i]>max  then  max :=A[i]  else if A[i]<min  then  min :=A[i];

…

Ещё фрагмент программы:

Если заведомо известны  границы диапазона  значений переменных, например они имеют тип integer, то их экстремумам ( наибольшее и наименьшее значение) можно присваивать крайние значения диапазона:  max :=-32768 а min := 32 767. Проверка массива в этом случае начинается с первого элемента.

Var  max, min : integer; {значение максимального и минимального элементов массива}

…

Begin
...
max :=-32768

min := 32 767

for i :=1  to  n  do

if  A[i]>max  then  max :=A[i]  else if A[i]<min  then  min :=A[i];

…

<< Назад