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

Пример 6: Найти значение максимального элемента массива.

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

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];

…………………………….

Пример 7: Найти min и max значения элементов массива.

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

Var {дополнительные переменные}

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

…………………………….

Begin

…………………………….

max:=A[1];

min:=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];

…………………………….

Подсчет количества элементов, удовлетворяющих заданному условию

Пример 8: Подсчитать, сколько раз в массиве встречается элемент, равный 10.

Задача решается по следующему алгоритму:

1. Количество нужных элементов k=0.

2. Проходим по всем элементам массива,

3. И если очередной элемент массива равен 10,

4. Тогда увеличиваем k (количество элементов равных 10) на 1.

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

Var {дополнительные переменные}

k:integer; {количество элементов, равных 10}

…………………………….

Begin

…………………………….

{1} k:=0;

{2} for i:=1 to n do

{3} if A[i]=10

{4} then k:=k+1;

…………………………….