InformáticaBásico1 respuestas

Desarrollar una aplicación donde se ingresa las edades de un conjunto de alumnos de un saln de clases en un vector y que permita obtener la siguiente información : - ¿cuantos alumnos estan matriculado?

Desarrollar una aplicación donde se ingresa las edades de un conjunto de alumnos de un saln de clases en un vector y que permita obtener la siguiente información : - ¿cuantos alumnos estan matriculados? - ¿cuantos alumnos son menores de 20 años? - ¿cuantos alumnos son mayores de 18 años? Es con aplicacion de consola visual basic : ).

Pregunta de Informática · 1 respuesta · mejor respuesta de Josiloka

En resumen

Bueno ahí tienes Dim edad(25) As Integer Dim m As Integer = 0 Dim c1 As Integer = 0 Dim c2 As Integer = 0 Dim n As Integer Console. WriteLine("ingresa la cantidad de edades de los alumnos que desea ingresar") n = Console. ReadLine() For x As Integer = 1 To n Console.

Respuestas de la comunidad

Mejor respuesta

Josiloka
6

Bueno ahí tienes

Dim edad(25) As Integer Dim m As Integer = 0

Dim c1 As Integer = 0

Dim c2 As Integer = 0

Dim n As Integer

Console.

WriteLine("ingresa la cantidad de edades de los alumnos que desea ingresar")

n = Console.

ReadLine() For x As Integer = 1 To n

Console.

WriteLine("ingresa las edades de los alumnos")

edad(x) = Console.

ReadLine

m = m + 1 If (edad(x) < 20) Then

c1 = c1 + 1

ElseIf (edad(x) > 18) Then

c2 = c2 = + 1 End If Next

For x As Integer = 1 To n Next

Console.

WriteLine("los alumnos matriculados son") Console.

WriteLine(m) Console.

WriteLine("alumnos menores de 20 año son") Console.

WriteLine(c1)

Console.

WriteLine("alumnos mayores de 18 años son") Console.

WriteLine(c2)

Console.

ReadLine().

Preguntas frecuentes

Desarrollar una aplicación donde se ingresa las edades de un conjunto de alumnos de un saln de clases en un vector y que permita obtener la siguiente información : - ¿cuantos alumnos estan matriculado?

Bueno ahí tienes Dim edad(25) As Integer Dim m As Integer = 0 Dim c1 As Integer = 0 Dim c2 As Integer = 0 Dim n As Integer Console.