Задача 5. В массиве Х(8) вычислить сумму отрицательных элементов, имеющих четные индексы
В массиве Х(8) вычислить сумму отрицательных элементов, имеющих четные индексы. Найти максимальный элемент и его индекс. Элементы выбрать самостоятельно.
Блок – схема.
На листе Excel разместить необходимые элементы управления.
  
Событийная процедура кнопки Вычислить.
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
|
