Răspuns:
program ordonare;
type tablou=array[1..100]of real;
var x: tablou;
n,i:integer;
procedure ordCresc(n:integer; var x:tablou);
var i,j:integer;
aux: real;
ordonat: boolean;
begin
ordonat:=false;
while not ordonat do
begin
ordonat:=true;
for j:=1 to n-1 do
if x[j]>x[j+1] then
begin aux:=x[j]; x[j]:=x[j+1]; x[j+1]:=aux; ordonat:=false; end;
end;
end; {ordCresc}
begin {program principal}
write('n='); read(n);
writeln('introdu ',n,' elemente ale tabloului:');
for i:=1 to n do read(x[i]);
ordCresc(n,x);
writeln('tabloul ordonat crescator');
for i:=1 to n do
write(x[i],' ');
writeln;
end.
Explicație:
