Код
Type
arrType = Array[1 .. n] Of Integer;
Procedure Bubble(Var ar: arrType; n: integer);
Var i, j, T: Integer;
Begin
For i := 1 To n Do {1}
For j := n DownTo i+1 Do {2}
If ar[Pred(j)] > ar[j] Then Begin {3}
T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T {4}
End
End;
ясно, что за [1,1] и [1,2], и после сравнени, он произведет замену, так чтоли? за счет перебора 1 и 2 пройдется по всему массиву! на 2мерный массив, чего не хватает, все не могу понять?