bonjour,
j'ai un devoir a rendre, mais je suis bloqué sur un exercice et j'aurai besoin de votre aide !
voici l'énoncé:
écrivez un programme qui:
-demande a l'utilisateur de combien de valeurs (de type entier) il veut saisir
-saisit ces valeurs en les stockant dans un tableau
-recherche et affiche le nombre d'occurrences des valeurs maximales et minimales du tableau
par ex si l'utilisateur saisit les valeurs suivantes:
3 9 5 3 4 6 9 3 7 3
le programme affichera:
le minimum est 3 (4 occurrences), et le maximum est 9 (2 occurrences)

j'ai deja fais tout le programme je bloque juste sur le nombre d'occurrences, je sais que je dois faire une boucle et non pas une fonction pour trouver celle ci voici le code de mon programme:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Module Module1
Function minimumtab(ByVal tab() As Integer, ByVal nombres As Integer) As Integer
Dim minimum = tab(0), i As Integer
For i = 1 To nombres - 1
If tab(i) < minimum Then minimum = tab(i)
Next
minimumtab = minimum
 
End Function
 
Function maximumtab(ByVal tab() As Integer, ByVal nombres As Integer) As Integer
Dim maximum = tab(0), i As Integer
For i = 1 To nombres - 1
If tab(i) > maximum Then maximum = tab(i)
Next
maximumtab = maximum
End Function
 
Sub Main()
Dim tab(20), nbvaleurs, i As Integer
nbvaleurs = InputBox("saisissez le nombres de valeurs à traiter(< 20):")
For i = 0 To nbvaleurs - 1
tab(i) = InputBox("saisissez la valeur n°" & i)
Console.WriteLine(tab(i))
Next
Console.WriteLine("le minimum est :" & minimumtab(tab, nbvaleurs))
Console.WriteLine("le maximum est :" & maximumtab(tab, nbvaleurs))
Console.Read()
End Sub
End Module
jattends vos reponses avec impatience !!!! merci beaucoup