Mini Projeto 10

Module Module1
    Dim soma, count, i, nalunos As Integer
    Dim media, perc As Decimal


    Sub Main()
        Console.WriteLine("<><><><><><><><><><><><><>")
        Console.WriteLine("")
        Console.WriteLine("_____ MINI PROJETO 10 _____")
        Console.WriteLine("")
        Console.WriteLine("<><><><><><><><><><><><><>")
        Console.WriteLine("")

        Console.Write("Digite o número total de alunos: ")
        nalunos = Console.ReadLine()

        count = 0
        soma = 0

        Dim nota(nalunos) As Decimal

        Console.WriteLine("")

        'Calcula o somatório de todas as notas.


        For i = 1 To nalunos
            Console.Write("Introduza a nota do aluno " & i & " : ")
            nota(i) = Console.ReadLine()
            soma = soma + nota(i)

        Next

        'Calcula a média das notas

        media = soma / nalunos

        'Calcular o número de alunos com nota superior à meida

        For i = 1 To nalunos
            If nota(i) > media Then
                count = count + 1
            End If
        Next

        'Calcular a percentagem

        perc = (100 * count) / nalunos
        Console.WriteLine("")
        Console.WriteLine("Percentagem de alunos com a nota superior à media: " & Math.Round(perc, 1) & "%")

        Console.ReadKey()


    End Sub

End Module