Упорядочить заданный массив

[Serg241]

Упорядочить заданный массив А(n) по неубыванию, многократно переставляя каждые два соседних элемента, нарушающие порядок. Процесс завершается по достижении упорядоченности массива

[min@y™]

это типа так штоль?

[Вадим Мошев]

Николай, скорей всего речь идёт о сортировке "пузырьком". В этом случае сравниваются и переставляются соседние ( i-й и [i+1]-й ) элементы.

[min@y™]

Николай, скорей всего речь идёт о сортировке "пузырьком". В этом случае сравниваются и переставляются соседние ( i-й и [i+1]-й ) элементы.

Ну ладно, ладно, чо ты сразу?.... Я ж предположил прост.

[newerow1989]

var i,z:integer;
    d:boolean;
    p:array[1..10] of integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21)-10;
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   Repeat
      d:=true;
      For i:=1 to 9 do
         If p[i]>p[i+1] then
         begin
            d:=false;
            z:=p[i];
            p[i]:=p[i+1];
            p[i+1]:=z;
         end;
   Until d;
   For i:=1 to 10 do
      Write(p[i]:3,'  ');
   Writeln;
   Readln;
end.