Пример 5. M=inputbox(“ Введите размерность массива”)

Разработать информационную технологию, позволяющую определить значение и местоположение элемента одномерного массива А произвольной размерности m, равного максимальному значению.

Входные данные: m – целое число;

A=[a_i], – массив вещественных чисел.

Выходные данные:

k – значение максимального элемента массива, вещественное число;

q – значение индекса, определяющего местоположение максимального элемента, целое число.

Математическая модель:

k = a₁ , q =1;

для i = 1..m, eсли a_i > k, то k = a_i, q = i

Схема алгоритма:

Код приложения:

Option Bаse 1

Private Sub Form_Activate()

Dim i As Integer, m As Integer, q As Integer, k As Double, a() As Double

m=InputBox(“ Введите размерность массива”)

ReDim a(m)

For i=1 To m

a(i)=InputBox(“a(“ & i & ”)”)

Next

k=a(1): q=1

For i=1 To m

If a(i)>k then

k=a(i): q=i

End If

Next

Print “Максимальное значение =” & k & Сhr(10) & _

”Индекс элемента массива = “ & q

Print Chr(10);“Исходный массив”

For i=1 To m

Print “a(“ & i & ”) =“ & Format(a(i),”0.000”)

Next