End Sub. 7. Проверьте, что заполнение массива обоими способами происходит нормально

7. Проверьте, что заполнение массива обоими способами происходит нормально.

ЗАВДАННЯ 10.2. Постановка задачи: ВЫПОЛНИТЕ ПРОЕКТ, ПОЗВОЛЯЮЩИЙ НАХОДИТЬ МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ МАССИВА (ЗАПОЛНЕННОГО В ЗАВДАННІ 10.1) И ЕГО НОМЕР.

8. Предварительно ознакомьтесь с алгоритмом поиска максимального элемента.

Алгоритм поиска максимального (минимального) элемента в массиве:

Дано: N — количество элементов в массиве А; А(1: N) — N элементов массива А.

Вычислить: наибольший элемент Мах в массиве А и его номер nМах.

Принцип поиска заключается в сравнении каждого элемента массива со значением в Мах и запоминанием в нем элемента, который оказался больше значения Мах. Для корректного первого сравнения в качестве начального значения Мах можно использовать первый элемент массива, тогда сравнения в цикле целесообразно начинать с i = 2. При поиске максимального значения среди элементов массива, удовлетворяющих не которому условию, например, только среди отрицательных элементов, нельзя в качестве Мах использовать первый элемент массива, так как А(l) может не быть отрительным. В этом случае в качестве начального значения Мах можно использовать очень маленькое число (-1. Е38 — для массива вещественных чисел и -32768 – для целочисленного массива). Как только встретится отрицательный элемент массива, больший Мах, значение Мах будет заменено на этот элемент. Если Мах останетсн неизменным, это значит, что в массиве нет элементов, удовлетворяющих заданному условию (отрицательных).

Для поиска минимального элемента среди элементов массива, в качестве начального значения Min нужно использовать большое положительное число (l.E38 — для массива вещественных чисел, 32761 — для целочисленного массива).

9. Проанализируйте приведенный программный код поиска максимально элемента в массиве.

10. Наберите процедуру поиска максимального элемента.

Private Sub CmdMax_Click()

FrmМассив.Caption = " Пошук максимального елемента"

max = a(1): nmax = 1

For i = 2 To n

If a(i) > max Then

max = a(i)

nmax = i

End If

Next i

MsgBox "максимум " + Str(max), 0 + 64, "максимум"

TxtMax.Text = Str(max)

Txtnmax.Text = Str(nmax)

End Sub

11. Проверьте правильность работы проекта и сохраните его под именем Лр10_Зад2 _Фамилия