compu 1

Module Module1

Sub Main()
'Declarar Variables
'Entrada
Dim N As Integer
Dim Nombre As String
Dim Edad As Integer
Dim Seccorig As IntegerDim SeccSol As Integer
Dim seccasig As Integer

'salida
Dim Porc_camb As Single
Dim Prom_edad_adic As Single
Dim cantest_coinciden As Integer'proceso
Dim Acumedad, contcamb As Integer

'Inicializacion
cantest_coinciden = 0
cont_camb = 0
Acumedad = 0

'proceso interactivoConsole.WriteLine("introduzaca el valor de N")
N = Console.ReadLine()
For i = 1 To N
Console.WriteLine("Introduzca el Nombre del estudiante")
Nombre= Console.ReadLine()
Console.Write("introduzca la edad del estudiante")
Edad = Console.ReadLine()
Console.WriteLine("introduzca la seccion original")Seccorig = Console.ReadLine()
Console.WriteLine("introduzca la seccion solicitada patra el cambio o la adicion")
SeccSol = Console.ReadLine()Console.WriteLine("introduzca la seccion asignada despues de procesar el cambio o la adicion")
Seccasig = Console.ReadLine()

'Calculos
If Seccorig = 0 Then'adicion
Console.WriteLine(Nombre & "adicion")
Acumedad += edad
Else
'cambio
Console.WriteLine(Nombre & "cambio")cont_camb += 1

End If

Next

'Calculos


If seccsol = seccorig Then
cantest += 1
End If

If Seccorig 0 Then'adicion
Else

'cambio
Porc_camb = (cont_camb / N) * 100
End If

If N - cont_camb 0 Then
Prom_adic = Acumedad / (N -...