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

[nen9kin]

Есть массив из отрицательных и положительных чисел,который задается случайно. Требуется вычислить сумму элементов массива, расположенных между первым и последним отрицательными элементами. Сформировать из этих элементов новый массив.Подскажите пожалуйста как найти этот новый массив и сумму?

Код: Выделить всё

Public Sub reshenie(ByVal x() As Double, ByVal n As Integer)
        Dim k, p, j As Integer
        Dim s As Double
        For i = 0 To n - 1
            If x(i) < 0 Then k = i + 1 '
        Next i
        For i = n - 1 To 0
            If x(i) < 0 Then p = i - 1
        Next i
        For i = k To p
'???


[FireFenix]

Код: Выделить всё

Dim Flag as Boolean = False
Dim Новый_Массив() как Тип_Массива
Dim Sum as Тип_Массива

Цикл i до Количество элементов в массиве
    Если Массив(i) < 0 Тогда
        Flag = True
    Иначе
        Если Flag = True Тогда Выход из цикла
    Конец Если

    Если Flag = True Тогда
          В Новый_Массив добавить элемент Массив(i)
          Sum += Массив(i)
    Конец Если
Конец Цикла