Как отсортировать массивы... Опции

[Olegatronics]

Как отсортировать массивы Линейным способом и методом пузырька?

[Ivs]

Вот немножко улучшеный вариант:

Код

w:=true;
while w do
 begin
   w:=false;
   for j:=1 to n-1 do
     if a[j]>a[j+1] then
       begin
         w:=true; x:=a[j+1];
         a[j+1]:=a[j]; a[j]:=x;
       end;
 end;