Массивы в Visual Basic

[SelfishTroll]

Дан одномерный массив А размерности N.Найти сумму отрицательных элементов,расположенных до максимального и количество элементов до него.Заранее спасибо

[doober]

Сообщение от SelfishTroll

Найти сумму отрицательных элементов,расположенных до максимального и количество элементов до него.

Нашел.
Сумма равна -65535

[challengerr]

Dim A() As Integer 
Dim N As Integer 
Dim sum As Integer 
Dim max As Integer
Dim maxi As Integer  
Dim kol As Integer 
Dim i As Integer 

sum = 0
max = 0
kol = 0
N = inputbox("n=") ' размерности N
ReDim A(N) As Integer 'Дан одномерный массив А размерности N
max = A(0)  'максимальн элемент

For i = 0 To N
	if A(i) > max then
		max =  A(i) 'максимальн элемент
		maxi = i
	end if
Next

'Найти сумму отрицательных элементов,расположенных до максимального
For i = 0 To maxi
	if A(i) < 0 then
		sum = sum + A(i)
	end if
Next

'и количество элементов до него
kol = i + 1

[SelfishTroll]

Сообщение от challengerr

Dim A() As Integer 
Dim N As Integer 
Dim sum As Integer 
Dim max As Integer
Dim maxi As Integer  
Dim kol As Integer 
Dim i As Integer 

sum = 0
max = 0
kol = 0
N = inputbox("n=") ' размерности N
ReDim A(N) As Integer 'Дан одномерный массив А размерности N
max = A(0)  'максимальн элемент

For i = 0 To N
	if A(i) > max then
		max =  A(i) 'максимальн элемент
		maxi = i
	end if
Next

'Найти сумму отрицательных элементов,расположенных до максимального
For i = 0 To maxi
	if A(i) < 0 then
		sum = sum + A(i)
	end if
Next

'и количество элементов до него
kol = i + 1

Не высчитывает сумму,что не так?

[gaw4]

Private Sub Command1_Click()
n = 10
ReDim a(1 To n)
Cls
For i = 1 To n
a(i) = Int(Rnd * 101) - 50
Print a(i); vbTab;
    If i = 1 Then
       Max = a(i): ind = 1
    ElseIf a(i) > Max Then
        Max = a(i)
        ind = i
    End If
Next i

k = 0
For i = 1 To ind-1
If a(i) < 0 Then
   s = s + a(i): k = k + 1
End If
Next i

Print: Print
Print "Amax = A("; ind; ")="; Max
Print "k = "; k
Print "S = "; s
End Sub