Прям, задача какая-та :)

двоешник?

Вот, нашёл готовый пример, но правда задача там другая, так что придётся подумать:  
 
1. Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N)    
 
dim A(4) as integer 'Объявляем массив (из пяти элементов)    
Dim P As Integer 'количество положительных элементов    
Dim O As Integer 'количество отрицательных элементов    
Dim Sum as Double 'сумма    
Dim Pr as Double 'произведение    
Sum = 0    
Pr = 1    
A(0)=0    
A(1)=1    
A(2)=2    
A(3)=3    
A(4)=4    
'перебираем весь массив    
For i = LBound(A) To UBound(A)    
 If A(i) < 0 Then    
  O = O + 1    
  Pr = Pr * A(i)    
 Else    
  P = P + 1    
  Sum = Sum + A(i)    
 End If    
Next i    
'выводим результат    
msgbox "Количество положительных элементов в массиве: " & P & vbNewLine & "их сумма равна " & Sum    
msgbox "Количество отрицательных элементов в массиве: " & O & vbNewLine & "их произведение равно " & Pr    
 
Правда здесь 0 отнесли к положительным элементам, может это и так, я уже не помню...

Помогите решить задачу, пожалуйта.  
Как ее оформить и какую формулу применить?  
 
Найти произведение элементов с четными индексами одномерного массива E размерности К.  
Е={2;-3;-6;8;4;16;-11}