Дан массив B  размерности N. Найти произведение положительных четных элементов массива.

progra gt; var b:array[1..10000] of integer; n,i,p:linteger; begin read(n); p:=1; for i:=1 to n do begin read(b[i]); if(b[i]>0)and(b[i] mod 2=0)then p:=p*b[i]; end; writeln(p); end.

VB.  Dim B() As Integer         Randomize()         Dim k As Integer         Dim i As Integer         Dim Summ as Long         Summ=1         i = InputBox("Введите N")         ReDim A(i)         For k = 0 To i             B(k) = Rnd() * -1000 + 500             If B(k) > 0 and B(k) mod 2 =0 then Summ=Summ*B(k)         Next MsgBox(Summ)