сортировка. метод пузырька.

[TinMan]

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

Ув., TinMan, если Вы не верите мне, так поверьте википедии:
http://ru.wikipedia.org/wiki/%D0%A1%...BA%D0%BE%D0%BC

Ув. spein, именно эту ссылку я хотел привести тебе )).
На самом деле, не совсем понятно, что именно имел в виду ТС. В названии темы вроде стоит пузырек, поэтому я и счел нужным заметить о некотором несоответствии (чтоб не подставить ТС). А так - не стоит копья ломать )).
Sna1l, спасибо за поддержку, +1.

[Serge_Bliznykov]

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

Ув., TinMan, если Вы не верите мне, так поверьте википедии:
http://ru.wikipedia.org/wiki/%D0%A1%...BA%D0%BE%D0%BC

spein, гениально, привести ссылку на статью на википедии, где НУЖНЫЙ алгоритм, обосновывая свой код, который к данному алгоритму практически отношения НЕ ИМЕЕТ.
Я в изумлении!


впрочем, TinMan и Sna1L уже об этом сказали.

Если автору топика нужен именно "ПУЗЫРЁК" - тогда ему нужен тот код, который приведён в статье по ссылке, если же его устроит алгоритм сортировки обменами - тогда подойдёт Ваш код.
Просто нужно, чтобы любой, кто наткнётся на данную статью, понимал, что алгоритм сортировки "пузырьком" это такой:

{Вход: массив A, состоящий из N элементов, с нумерацией от A[1] до A[N]}

t := true;
while t do begin
  t := false;
  for j:=1 to N-1 do
    if A[j] > A[j+1] then begin
      { обменять местами элементы A[j] и A[j+1] }
      k := A[j];
      A[j] := A[i];
      A[i] := k; 
      t := true;
    end;
end;