Ordenación por intercambio directo ( método de la burbuja )

program ordenacio_per_intercanvi_directe;
uses crt;

{mètode de la bombolla}

var
x:real;
a:array[1..10] of real;
i,j:integer;
n:integer;

begin
clrscr;

{entrada de la seqüència de nombres }
write(' quants elements vols ordenar [1..10] ? ');readln(n);
writeln;
writeln(' ... entral''s un després de l''altre ... ');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;

{ordenació}
for i:=2 to n do
for j:=n downto i do
begin
if a[j-1] > a[j] then
begin
x:=a[j-1];
a[j-1]:=a[j];
a[j]:=x;
end
end;


{presentació de la seqüència ordenada}
writeln(' SEQÜÈNCIA ORDENADA ');
for i:=1 to n do writeln('a[',i,']=',a[i]:4:4);

repeat until keypressed;
end.

[autoría]