Defina una matriz de números enteros, coloque 100 números enteros aleatorios en la matriz a partir del subíndice 1 y encuentre la suma de los elementos de subíndice par con valores pares en la matriz
atenuar a(1 a 100) como entero
para i = 1 a 100
a(i)=int(rnd*100)
si i mod 2 =0 y a(i) mod 2=0 entonces s=s + a(i)
siguiente
msgbox "Y:" & s