FONCTION max(tab : TABLEAU[1...taille] : ENTIER ,taille: ENTIER)
VAR
	i, max: ENTIER
DEBUT
	max <- tab[0]
	POUR i ALLANT DE 1 A taille AU PAS DE 1
	FAIRE
		SI max < tab[i]
		ALORS
			max <- tab[i]
		FINSI
	FINPOUR
FIN
PROGRAMME max_appel
VAR
	tab <- {1, 9, 4, 3} : TABLEAU[1...8] : ENTIER
	m: ENITER
DEBUT
	ml <- max(tab, 8)
FIN

