Общая блок - схема обработки элементов одномерного массива

Содержание блока подготовки и тела цикла при решении некоторых задач обработки одномерного массива:

Задача Блок подготовки Тело цикла

Сумма элементов s=0 s=s+x(i)

Произведение элем. р =1 р=р*x(i)

мин. элемент min=x(1) if min>x(i) then min=x(i)

мах. элемент max=x(1) if max<x(i) then max=x(i)

Примеры обработки одномерных массивов

Пример 16.1.

Задан одномерный массив Х=х_i i=1,2,...,10. Составить программу определения максимального элемента.(см. глава 10, рис. 10.10).

Private Sub CommandButton1_Click()

Dim x(1 To 10), max As Single, i As Integer

For i = 1 To 10

x(i) = Val(InputBox(" Введите " & i & " Элемент массива "))

Next i

max = x(1)

For i = 2 To 10

If max < x(i) Then max = x(i)

Next i

MsgBox "max=" & max

End Sub