Corriger l'exercice

Tu dis meme pas quel langage il faut utiliser..

bien sur le program c'est pascal 7

Je m'y connais pas trop en pascal mais pour les nombres paires et imapaires fais un truc comme ca :
if(a%2 == 0) // pair
else // impair

les nombre pairs et impairs sa marche
program par;
type tab=array[1..50]of integer;
var t,tp,ti:tab;
g,i,n,k:integer; b:boolean;
Procedure pair(t:tab;n:integer;var tp:tab);
var l,k,x,i:integer;
Begin
l:=1;
For i: =1 to n do
Begin
x:=t[i]; if x mod 2=0 then
begin
tp[l]:=x;
l:=l+1;

k:=l-1;
end;
end;
for i:=1 to k do write ('[',tp[i],']');
end;
procedure impaire(t:tab;n:integer;var ti:tab);
var j,g,x,i:integer;
begin
j:=1; for i:=1 to n do
begin
x:=t[i]; if x mod 2<>0 then
begin
ti[j]:=x;
j:=j+1;
g:=j-1;
end;
end;
for i:=1 to g do
write ('[',ti[i],']');
end;
begin
write('la dimension de tab = ');
read(n);
writeln('donner les valeurs de tableau : ');
for i:=1 to n do
Begin
write ('t[',i,']=');
read (t[i]);
End;
writeln (' les nombres paires : ');
pair (t,n,tp);
Writeln;
Writeln ('les nombres impairs : ');
Impaire (t,n,ti); writeln; readln;readln; end. mais il ya un problem dans le max min ordre croissant parf prem regarde le program ne écrit pas par fonction ou procédure mais ecrit normal {program exo; const n=4; var x:array[1..n] of integer; a,i,j,t,s,max,min:integer; begin for i:= 1 to n do begin write('x[',i,']='); readln(x[i]); end; for i:=1 to n do begin write(x[i],' '); writeln; end; for j:=1 to n do for i:=1 to n+1 do for j:=1+i to n do
if x[i] >= x[j] then
begin
t:= x[j];
x[j]:=x[i]; x[i]:=t;
end;
write('le triage= ');
for i: = 1 to n do write(x[i], ' ');
max := x[n];
writeln;
write('le maximum ', max); min := x[1];
writeln;
write ('le minimum ', min);
readln;
end.}
svp écrire le program precedent en procédure max min ordre croissant parf prem

Je pense pas que grand monde comprenne ca :
"svp écrire le program precedent en procédure max min ordre croissant parf prem"

loocla, le jeudi 30 avril 2009 à 11:02:25
Je pense pas que grand monde comprenne ca :
"svp écrire le program precedent en procédure max min ordre croissant parf prem"

je ne compris pas

svp aidez moi