0votos

sbp en Gambas

por Guizans hace 13 días

Mi solución escrita en Gambas.

sbp

Hola, subo el mismo problema pero con el aditivo de que imprima en pantalla el promedio mas alto y el mas bajo. Saludos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
' Gambas module file 
 
Public Sub Main() 
 
  Dim calificaciones As New Integer[] 
  Dim alumnos, nota, media, a As Integer 
  Dim pregunta As String 
   
  Print "¿Cuantos alumnos tienes?" 
  Input pregunta 
   
  alumnos = CInt(pregunta) 
   
  If alumnos < 1 Or alumnos > 100 Then 
    Print "Cantidad de alumnos erronea" 
    Quit 
  Endif 
   
  For a = 0 To alumnos - 1 
    Print "Nota 1 del alumno " & CStr(a + 1) 
    Input pregunta 
    media = CInt(pregunta) 
    Print "Nota 2 del alumno " & CStr(a + 1) 
    Input pregunta 
    media += CInt(pregunta) 
    Print "Nota 3 del alumno " & CStr(a + 1) 
    Input pregunta 
    media += CInt(pregunta) 
    media /= 3 
     
    calificaciones.Add(media) 
     
    If media < 4 Then 
      Print "DESAPROBADO" 
    Else 
      Print "Promedio: " & media 
    Endif 
     
    media = 0 
     
  Next 
   
  calificaciones.Sort(gb.Ascent) 
   
  Print "La nota más alta es: " & calificaciones[alumnos - 1] 
  Print "La nota más baja es: " & calificaciones[0] 
   
End 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.