Задача 5. В массиве Х(8) вычислить сумму отрицательных элементов

В массиве Х(8) вычислить сумму отрицательных элементов, имеющих четные индексы. Найти максимальный элемент и его индекс. Элементы выбрать самостоятельно.

Блок – схема.

На листе Excel разместить необходимые элементы управления.

CommandButton1

Textbox1

Textbox2

Textbox3

Событийная процедура кнопки Вычислить.

Private Sub CommandButton1_Click()

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

‘ Вычисление суммы отрицательных элементов, имеющих четные индексы

s = 0

For i=1 To 8

x(i) = Cells(3+i, 2)

If i Mod 2 = 0 And x(i) < 0 Then s = s + x(i)

Next i

TextBox1.Value = s

‘ Вычисление максимального элемента и его номера

max = -10 ^ 5: n = 0

For i=1 To 8

If x(i) > max Then max = x(i): n = i

Next i

TextBox2.Value = max

TextBox3.Value = n

End Sub

Дата добавления: 2015-09-05