Exercice 12;

Variables Nb, i en Numérique
Tableau T() en Numérique
Debut
Ecrire « Entrez le nombre de valeurs :  »
Lire Nb
Redim T(Nb-1)
Pour i ? 0 à Nb – 1
Ecrire « Entrez le nombre n° « , i + 1
Lire T(i)
i Suivant
Ecrire « Nouveau tableau :  »
Pour i ? 0 à Nb – 1
T(i) ? T(i) + 1
Ecrire T(i)
i Suivant
Fin

Exercice 13;

Variables Nb, Posmaxi en Numérique
Tableau T() en Numérique
Ecrire « Entrez le nombre de valeurs : »
Lire Nb
Redim T(Nb-1)
Pour i ? 0 à Nb – 1
Ecrire « Entrez le nombre n° « , i + 1
Lire T(i)
i Suivant
Posmaxi ? 0
Pour i ? 0 à Nb – 1
Si T(i) > T(Posmaxi) alors
Posmaxi ? i
Finsi
i Suivant
Ecrire « Element le plus grand : « , T(Posmaxi)
Ecrire « Position de cet élément : « , Posmaxi
Fin

Exercice 14;

Variables Nb, i, Som, Moy, Nbsup en Numérique
Tableau T() en Numérique
Debut
Ecrire « Entrez le nombre de notes à saisir :  »
Lire Nb
Redim T(Nb-1)
Pour i ? 0 à Nb – 1
Ecrire « Entrez le nombre n° « , i + 1
Lire T(i)
i Suivant
Som ? 0
Pour i ? 0 à Nb – 1
Som ? Som + T(i)
i Suivant
Moy ? Som / Nb
NbSup ? 0
Pour i ? 0 à Nb – 1
Si T(i) > Moy Alors
NbSup ? NbSup + 1
FinSi
i Suivant
Ecrire NbSup,  » élèves dépassent la moyenne de la classe »
Fin