أرجوا الرد السريع من طرف أهل الإختصاص

[souad16]

Ecrivez un programme qui donne le min et le max d'un tableau entier avec leurs position pour un tableur de 50 cases. مع الشرح من فضلكم إن أمكن ........؟

[monamimi]

PROCEDURE Min ( a, b : integer ;
var inf : integer );
BEGIN
if a < b then inf := a
else inf := b;
END
PROCEDURE Max ( a, b : integer ;
var sup : integer );
BEGIN
if a > b then sup := a
else sup := b;
END;

bonne chance ma soeur j ai essyé de t'aidé j'espere que ca vas marcher avec toi

[souad16]

بارك الله فيكي و جعله الله في ميزا ن حسناتك

[تائبة الى ربها]

السلام عليكم
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







أتمنى أن أكون قد أفدتك

[monamimi]

بارك الله فيكي و جعله الله في ميزا ن حسناتك
wafiki barakka
ana tani kont kima nti mana3refch w nheb y3awnouni mais dorka ki na3ref haja manobkhelch