сортировка методом пузырька: вывод результата по шагам

[masterlomaster]

begin
           for j:=1 to k-1 do  begin
            for i:=1 to k-j do
             if A[i]>A[i+1] then
              begin
               x:=A[i];
               A[i]:=A[i+1];
               A[i+1]:=x;
              end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.



Вот простая сортировка методом пузырька. Мне нужно что бы результат выводился по щагам.
Пробывал дополнительный цикл вставлять, каша получаеться.

[baster128]

begin
for j:=1 to k-1 do
for i:=1 to k-j do
if A[i]>A[i+1] then
begin
x:=A[i];
A[i]:=A[i+1];
A[i+1]:=x
end;
не особо понял, что утебя здесь написано, но попробуй вот так.

[VadikV]

begin
for j:=1 to k-1 do begin
   for i:=1 to k-j do
      if A[i]>A[i+1] then
      begin
         x:=A[i];
         A[i]:=A[i+1];
         A[i+1]:=x;
         for i1:=1 to k do 
            Write(A[i1]);
         WriteLn;
     end;
end;

[masterlomaster]

Сообщение от VadikV

    
         for i1:=1 to k do 
            Write(A[i1]);
         WriteLn;
     end;
end;

что за i1?

[Serge_Bliznykov]

что за i1?

а что, в процитированном Вами коде не видно?

 for i1:=1 to k do 
            Write(A[i1]);
         WriteLn;

Это переменная цикла FOR для вывода элементов массива.

[masterlomaster]

ВадикВ спасибо! +