Чет про программирование / практика / 6) Сортировка пузырьком, сортировка обменом

Сортировка пузырьком

program qq;

const N = 10;

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

i, j, c: integer;

begin

randomize;

for i:= 1 to n do begin

a[i] := random (10);

write (a[i]);

end;

for i:=1 to N-1 do begin

for j:=1 to N-1 do

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

c := A[rj];

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

A[j+1] := c;

end;

end;

writeln;

for i:= 1 to n do

write (a[i]);

end.

Сортировка обменом

program qq;

var

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

i,j,n,k,m : longint;

begin

readln(n);

for i:=1 to n do read(a[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

k:=a[i];

a[i]:=a[j];

a[j]:=k;

end;

for i:=1 to n do write(a[i],' ');

readln;

readln;

end.