Программы c++ (сортировка, хэширование) / 1 / Buble_Sort

{3. Пузырьковая сортировка (обменная)}

CONST
n=32767;

VAR
i: integer;
mass: array [1..n] of real;


Procedure InitMass;
Begin
for i:=1 to n do mass[i]:=10*sin(30*i+0.24);
End;


Procedure Bubble_S;
Var
j: integer;
x: real;

Begin
for i:=2 to n do for j:=n downto i do if mass[j-1]>mass[j] then begin
x:=mass[j-1];
mass[j-1]:=mass[j];
mass[j]:=x;
end;
End;


BEGIN
InitMass;
for i:=1 to n do writeln(mass[i]:5:5);
WriteLn('***********************************************************');
Bubble_S;
for i:=1 to n do writeln(mass[i]:5:5);
END.