السلام عليكم
ce que monamini a donné sont des procédures or on a demandé un programme
je vais essayer de le faire mais en algorithme
algo max_min
type tab:tableau [1..50]:entier
var x[i]:tab
i,j,k,max,min:entier
debut
pour i allant de 1 a 50 faire
lire(x[i],fin pour
max<----x[1
j<---1
pour i allant de 2 a 50 faire
si max < x[i] alors
debut
max<----x[i
j<----i
fin si
fin pour
ecrire('le maximum est',max
ecrire('sa position est'j
min<----x[1
k<---1
pour i allant de 2 a 50 faire
si min > x[i] alors
debut
min<----x[i
k<----i
fin si
fin pour
ecrire('le minimum est',min
ecrire('sa position est'k
fin
أتمنى أن أكون قد أفدتك