При сортировке возникает необходимость поменять местами значения двух переменных.
Ниже представлены два варианта этой операции.
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.