Bonjour,
Pouvez-vous m’aidez à compléter cette algorithme de façon à ce qu’il réponde à la consigne ?
Sub exam()
Const TMAX = 100
Dim n As Integer
Dim i As Integer
Dim somme As Double
Dim t(1 To TMAX) As Integer
Dim x As Integer
n = InputBox("Entrer le nombre de valeur que contient le tableau, nombre compris entre 1 et 100")
While n > 100 Or n < 1
n = InputBox("Entrer le nombre de valeur que contient le tableau, nombre compris entre 1 et 100")
Wend
For i = 1 To n
t(i) = InputBox("Entrer une valeur du tableau, nombre compris entre 1 et 20")
While t(i) > 20 Or t(i) < 0
t(i) = InputBox("Entrer une valeur du tableau, nombre compris entre 1 et 20")
End Sub
Merci d’avance !!