Программы сортировки массива разными способами на языке Паскаль

Программы сортировки массива разными  способами на языке программирования Паскаль

Сортировка массива выбором с использованием дополнительного массива.

program Сортировка выбором;

const

   N=10;

var

   A,B:array[1..N] of integer;

   J,I,Jmin,Min,Max:integer;

begin

  for J:=1 to N do                       

      A[J]:=random(100);

  Max:=A[1];

  for J:=2 to N do

    if A[J]> Max then  Нахождение максимального

          Max:=A[J];

 For I:=1 to N do

  begin

    Min:=A[1];

    Jmin:=1;

    for J:=2 to N do

       begin

           if A[J]< Min then

              begin             Нахождение минимального          

                  Min:= A[J];

                  Jmin:=J;

              еnd;

        end;

     B[I]:=Min;

     A[Jmin]:=Max;

   end;

end.

Сортировка массива выбором без использования дополнительного массива.

program бездомас;

const

   N=10;

var

   A:array[1..N] of integer;

   J,I,Max,Min,Jmin,C:integer;

begin

  for J:=1 to N do

      A[J]:=random(100);

  for I:=1 to N-1 do

  begin

    Min:=A[I];

    Jmin:=I;

    for J:=I+1 to N do

       begin

           if A[J]< Min then

              begin

                  Min:=A[J];

                  Jmin:=J;

              end;

        end;

     C:= A[I];

     A[I]:=Min;

     A[Jmin]:=C;

  end;

  for J:=1 to N do

    writeln('A=',A[J]);

 end.

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

program пузырек;

const

   N=10;

var

   A:array[1..N] of integer;

   J,M,Vr,Flag:integer;

begin

  for J:=1 to N do

      A[J]:=random(100);

 M:=N;

 Flag:= 0;

  while Flag = 0 do

   begin

    Flag:=0;

    for J:=1 to M-1 do

        if A[J]> A[J+1] then

           begin

               Vr:=A[J];

               A[J]:=A[J+1];

               A[J+1]:=Vr;

               Flag:=1;

           end;

    M:=M-1;

   end;

 end.

Демонстрационный вариант.

var k,i,j, tmp, N: integer;

a:array [1..1000] of integer;

begin

N:=0;

readln(k);

while k<>0 do begin

N:=N+1;

a[N] :=k;

readln(k);

end;

for i:=1 to N-1 do

                for j:=1 to N-i do

                if a[j]> a[j+1] then begin

                tmp:=a[j]; a[j]:=a[j+1]; a[j+1]:=tmp;

end;

for i:=1 to N do writeln(a[i]) ;

end.