0votos

sbp en Gambas

por Guizans hace 3 meses

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.