Подпоследовательность

[phoenix92]

Здравствуйте. Помогите переписать программу. Здесь ищется отрицательная подпоследовательность наибольшей длины нужно чтобы искала отрицательную подпоследовательность наименьшей длины.

For h = 1 To n
    If a(h) < 0 Then
        curLen = curLen + 1
    Else
        If curLen > maxLen Then
            maxLen = curLen
            maxStart = h - curLen
            maxEnd = h - 1
            curLen = 0
        End If
    End If
Next
 
If curLen > maxLen Then
    maxLen = curLen
    maxStart = h - curLen
    maxEnd = h - 1
    curLen = 0
End If
 
If maxLen = 0 Then
    MsgBox "нет"
Else
    MsgBox "от " & maxStart & " до " & maxEnd
End If

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.