Паскаль

[mistertvister]

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

[mihali4]

Поиск по форуму?
Подсказка - если бы тема была названа по правилам, принятым на форуме, т.е. "Сортировка методом пузырька", то куча ответов тут же появилась бы внизу, в "Похожих темах".
Это так, для общего развития...

[ThisIzGame]

google вам в помощь

[ОДИНОЧЕСТВО В СЕТИ]

Вход: массив A, состоящий из элементов A[1], A[2], ..., A[n]

t := истина
цикл пока t:
  t := ложь
  цикл для j = 1, 2, ..., n − 1:
    если A[j] > A[j+1], то:
      обменять местами элементы A[j] и A[j+1]
      t := истина

[Gapro]

Program Sortirovka;
 Const k=20;
 Var a: array[1..k] of integer; i: integer;
 Procedure puzirek;
  Var m,i,c: integer;
 begin
  For m:=k DownTo 1 Do begin
   For I:=1 to m-1 Do  begin
    If a[i]>a[i+1] Then Begin
     c:=a[i];
     a[i]:=a[i+1];
     a[i+1]:=c;
    end;
   end;
  end;
 end;
Begin
For i:=1 to k Do
 a[i]:= Random(k)+1;
puzirek;
For i:=1 to k Do
If i mod 10 =0 Then WriteLn(' ',a[i],' ') else Write(' ',a[i],' ');
ReadLn;
end.

Вот она