Sup moyenne

Bonjour,

Tu devrais stocker tes notes dans un ARRAY.
Ainsi, tu pourrais parcourir cet array pour afficher les notes voulues.
https://plasserre.developpez.com/cours/vb-net/?page=langage-vb3

mm... mouais....

Donc.. à l'arrache.. sans avoir testé :

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

Bonjour,

Je vais vous mettre sur la bonne voie.

Vous vous y prenez mal. Il faut :
-1- Saisir vos données et les stocker dans un tableau.
-2- Gérer vos données.

Remarque :
-1- Essayez de mieux structurer votre programme en utilisant des fonctions et des procédures. Cela le rendra plus lisible.
-2- Pour un débutant ce n'est pas le résultat qui compte mais la manière d'y parvenir.

On ne sait plus enseigner la programmation car on n'utilise plus les bons outils.

Cordialement,

Uly