VB.Net: Correction des exercices tableaux et matrices 14

14 Correction Exercice 14

Module exercice14
    Sub Main(args As String())
        Dim n As Integer
        Dim somme As Integer = 0
        ' demande et saisie de nombre des chiffres à additionner
        Console.WriteLine("Combien de chiffres on veut additionner?")
        n = Convert.ToInt16(Console.ReadLine())
        'Déclaration et initialisation du tableau
        Dim tab As Integer() = New Integer(n - 1) {}
        'Saisie des éléments du tableau
        For i As Integer = 0 To n - 1
            Console.WriteLine("Sasir l'élément numéro{0}", i)
            tab(i) = Convert.ToInt16(Console.ReadLine())
        Next
        ' Affichage des éléments du tableau
        For i As Integer = 0 To n - 1
            Console.WriteLine("L'élément numéro{0} est : {1}", i, tab(i))
        Next
        'Calcul et affichage de la somme
        For i As Integer = 0 To n - 1
            somme += tab(i)
        Next
        Console.WriteLine("la somme des éléments est : " & somme)
    End Sub
End Module