vba

[salim_419]

Написать программу на VBA. Сгенерировать одномерный массив вещественный чисел со знаком.
Подсчитать и вывести сумму элементов массива с четными номерами и количество элементов,
меньших найденной суммы, записывая их в новый массив.

[IgorGO]

см. вложение. жмите кнопку

Sub Z1()
  Dim a(1 To 32), cnt&, i&, S#
  Randomize
  For i = 1 To UBound(a)
    a(i) = 100 - 200 * Rnd
    If i Mod 2 = 0 Then S = S + a(i)
  Next
  For i = 1 To UBound(a)
    If a(i) < S Then cnt = cnt + 1
  Next
  Cells(1).Resize(UBound(a), 1) = WorksheetFunction.Transpose(a)
  Cells(1, 3) = S
  Cells(1, 4) = "- сумма элементов на четных местах"
  Cells(2, 3) = cnt
  Cells(2, 4) = "- количество элементов меньше суммы выше"
End Sub

вторая часть задания после оплаты первой части