vectores

Vector 1
Conocido un vector un vector de N elementos enteros positivos de dos cifras. Calcular el promedio del digito par de la cifra de las decenas de los valores del vector.
Definición deVariables
N= número de elementos del vector
I= contador
J= contador 2
K= contador auxiliar
X (i)= vector que contiene números enteros positivos de dos cifras
S= sumatoria
Z= el numero qrepresenta las decenas
D (i)= vector que guarda en memoria el número de las decenas
P= promedio
Diagrama de Flujo
































Codificado
PrivateSub vector1_Click()
Dim n%, i%, x!(50), k%, s%, j%, z!, p!, d!(50)
Do
n = Val(InputBox("ingrese el numero de elemntos del vector"))
Loop Until n > 0
For i = 1 To n
Do
x(i) = Val(InputBox("Ingrseun Numero Entero de 2 cifras Positivo"))
Loop Until x(i) > 9 And x(i) < 100
Next i
k = 0
s = 0
For j = 1 To n
z = x(j) \ 10
If z Mod 2 = 0 Then
k = k + 1
d(k) = z
s = s + z
Else
End IfNext j
If k > 0 Then
p = s / k
Print Tab(20); "VECTOR";
For i = 1 To n
Print Tab(20); x(i)
Next i
Print: Print: Print
Print Tab(20); "digitos par de las decenas"; Tab(80); "la sumatoria es ="; sPrint Tab(80); "el promedio es ="; p
Print Tab(80); "el numero de terminos es ="; k

For i = 1 To k
Print Tab(20); d(i)
Next i
Else
End If

End Sub






Prueba de funcionamientoVector 2
Conocido un vector de N elementos pares positivos de tres cifras. Calcular el promedio de aquellos valores q se encuentren en las posiciones impares del vector y la cifrade la decenas es múltiplo de tres.
Definición de Variables
N= número de elementos del vector
I= contador
K= contador auxiliar
X (i)= vector que contiene números pares positivos de tres cifrasS= sumatoria
Z= el número que representa las decenas y unidades
D =el número de las decenas
C (i)= vector que guarda en memoria los números que están en las posiciones impares del vector...