Usando MOD
' Gambas class file
'by postapase
Public Sub Form_Open()
Dim x, Num, dato, dato1, par, impar As Integer
Dim Numeros As New Integer[]
Dim todos As String
For x = 0 To 10
Randomize
Wait 0.1
Num = Rnd(0, 100)
Numeros.Add(Num)
Next
For Each dato In Numeros
If dato Mod 2 = 0 Then
Inc par
Else
Inc impar
Endif
Next
For Each dato1 In Numeros
todos &= dato1 & ","
Next
Print Left$(todos, Len(todos) - 1)
Print "Impares= " & impar
Print "Pares= " & par
End
