помогите решить хотя бы под одной буквой
Даны целые числа a1, a2, … Известно, что a1 > 0 и что среди a2,a3,… есть хотя бы одно отрицательное число. Пусть a1,…,an – члены данной последовательности, предшествующие первому отрицательному члену (n заранее неизвестно). Получить:

a) max (а1^2, …, аn^2 );б) min (a1+a2, a2+a3, …,an-1+an)
очень прошу помогите
я пробовала решить с максимумом вот что вышло
Sub mac1()
Dim A() As Integer, n As Byte, i As Integer, r As real
n = InputBox("n")
ReDim A(n)
For i = 1 To n
A(i) = InputBox("A(i)")
Next i
Amax = A(1) ^ 2: k = 1
For i = 2 To n
If A(i) > max Then max = A(i) ^ 2: k = i
Next i
MsgBox "max=" & r
End Sub

уже по-всякому пыталась,не получается...помогите пожалуйста,срочно надо.....