Posted 2/5/2015, 15:19
repeat
ok:=true {presupunem ca vectorul(sau sirul) a este ordonat si noi doar verificam daca este sau nu.}
for i:=1 to n-1 do
if a[i]>a[i+1] then begin
aux:=a[i];
a[i]:=a[i+1];
a[i+1]:=aux;
ok:=false
end;
until OK:=true
ok:=true {presupunem ca vectorul(sau sirul) a este ordonat si noi doar verificam daca este sau nu.}
for i:=1 to n-1 do
if a[i]>a[i+1] then begin
aux:=a[i];
a[i]:=a[i+1];
a[i+1]:=aux;
ok:=false
end;
until OK:=true