Сортировка

При сортировке возникает необходимость поменять местами значения двух переменных.

Ниже представлены два варианта этой операции.

 

1. Используя промежуточную переменную;

if a[i]>a[i+1] then

                     begin

                     m:=a[i];

                     a[i]:=a[i+1];

                     a[i+1]:=m;

                     end;

 

2. Без использования промежуточной переменной.

   a:=a+b;

   b:=a-b;

   a:=a-b;

Создать массив из ста случайных целых чисел. Произвести сортировку по возрастанию.

Program z1;
 Uses Crt;
 Var i, j,m: integer;
     a: array [1..100] of integer;
 Begin
   ClrScr;
   Randomize;
   For i:=1 to 100 do
   begin
    a[i]:=random(99)+1;
    Write (' ', a[i]);
   end;
   WriteLn;
 for j:=1 to 100 do
 begin
   For i:=1 to 99 do
   begin
    if a[i]>a[i+1] then  begin  m:=a[i]; a[i]:=a[i+1]; a[i+1]:=m; end;
 end;
   end;
   WriteLn;
  For i:=1 to 100 do    Write (' ', a[i]);
  end.