freepascal.ru

Код: Выделить всё

  Flag := true;
  while Flag do
  begin
    Flag := false;
    for i := 0 to ElementCnt - 1 do
    begin
      if TempArray[i] > TempArray[i + 1] then
      begin
        TempInt := TempArray[i];
        TempArray[i] := TempArray[i + 1];
        TempArray[i + 1] := TempInt;
        Flag := true;
      end;
    end;
  end;

Код: Выделить всё

исходный 8, 6, 0, 6, 3, 3, 0, 6
выходной 0, 0, 0, 3, 3, 6, 6, 6

Код: Выделить всё

исходный 8, 6, 0, 6, 3, 3, 0, 6
выходной 0, 0, 3, 3, 6, 6, 6, 8

Код: Выделить всё

var
  j,i: Integer;
begin
   for j:=0 to ElementCnt-1 do
    for i:=1 to ElementCnt-1 do
      if TempArray[j]>TempArray[i] then
       begin
        TempInt:=TempArray[j];
        TempArray[j]:=TempArray[i];
        TempArray[i]:=TempInt;
       end;
end;


Sergei I. Gorelkin писал(а):Динамический массив из n элементов имеет диапазон от 0 до (n-1). Поэтому, делая внутренний цикл от 0 до ElementCnt-1 и обращаясь к элементу с индексом i+1, будем вылезать за границу массива. Внутренний цикл должен быть от 0 до ElementCnt-2.