executer cette programme par le machine vite !!!!!!!!!!!!!!!!!!
program tri_bull;
uses wincrt;
type
tab = array [0..100] of integer;
var
t : tab;
n,i,j:integer;
procedure saisie ( var n : integer);
begin
repeat
writeln('donner un entier N ');
readln(n);
until (n in [1..100]);
end;
procedure remplir ( var t : tab ; n :integer);
var
i :integer;
begin
writeln(' donner un tableau T ');
for i := 1 to n do
readln(t[i]);
end;
procedure permut (var t :tab ; x,y : integer);
var
temp : integer;
begin
temp:=t[x];
t[x]:=t[y];
t[y]:=temp;
end;
procedure tri ( var t : tab ; n,i,j : integer);
begin
if (i<=n-1) then
begin
if (j <= n-i) then
begin
if(t[j]>t[j+1]) then
permut(t,j,j+1)
else tri(t,n,i,j+1);
end;
tri(t,n,i+1,j);
end;
end;
procedure affiche ( t:tab ;n :integer);
var
i :integer;
begin
writeln('Tableau Trié');
for i := 1 to n do
writeln(t[i]);
end;
BEGIN
saisie(n);
remplir(t,n);
tri(t,n,i,j);
affiche(t,n);
END.
