Question

Realice un algoritmo que permita ingresar 15 números enteros y entregar al final:

a. La cantidad de números ingresados menores a 7.

b. La cantidad de números ingresados que terminan en 3

Answer 1

Inicio
          cant_num_menores<- 0
          n<-15
          Para i<-1 hasta n hacer con paso 1
                     Escribir "Ingrese un número entero"
                     Leer numero
                     
                     si (numero < 7) entonces
                          cont_num_menores<-cont_num_menores+1
                     finsi

          Fin para
         
          Escribir " La cantidad de numero menores a 7 es de :",cont_num_menores


Fin


      

Answer 2

Prueba con esto, es el algoritmo pasado a un programa de consola en vb.
Saludos.



Module Module1    Dim _arrArrayNumeros(14) As Integer    Dim _menoresA7 = 0    Dim _numeroTerminanEn3 = 0
    Sub Main()        Console.WriteLine("Ingrese los 15 numeros: ")        For a = 0 To 14            Console.Write("Num " + (a + 1).ToString + " :")            _arrArrayNumeros(a) = Console.ReadLine            Console.Write("")        Next
        For Each x In _arrArrayNumeros            If x < 7 Then                _menoresA7 = _menoresA7 + 1            End If            If StrReverse(x.ToString).Substring(0, 1) = "3" Then                _numeroTerminanEn3 = _numeroTerminanEn3 + 1            End If        Next
        Console.WriteLine("Cantidad de numeros menores a 7: " + _menoresA7.ToString)        Console.WriteLine("Cantidad de numeros terminan en 3: " + _numeroTerminanEn3.ToString)        Console.ReadKey()    End SubEnd Module