Question

Se da un vector. sa se calculeze nr elementelor pare și produsul celorlalte

Answer 1

daca a este vector cu n elemente (in Visual basic)
        Dim np As Integer
        For i = 1 To n 
           If a(i) Mod 2 = 0 Then 
               np += 1
            End If 
       Next
       Dim pr As Integer 
       For i = 1 To n 
           If a(i) Mod 2 = 0 Then
                pr *= a(i)
            End If
        Next