Sup moyenne

Module Module1

    Sub Main()
       Dim Tblnotes(1) As Double
       Dim n, s, m, i, nb As Double
        Console.WriteLine("saisir le nb de notes :")
        nb = Console.ReadLine()
       Redim Preserve Tblnotes(nb)
        For i = 1 To nb

            Console.WriteLine("saisir note :" & i)
            n = Console.ReadLine()
           Tblnotes(i)=n
            s += n
            m = s / nb

        Next
        Console.WriteLine("la moyenne est :" & m)
        
        'Affichage des notes supérieurs à la moyenne:
       For Each nSup As Double In Tblnotes
          if nSup >m then
           Console.WriteLine(" --> " & nSup)
          end if
       Next


    End Sub

End Module