program sort_random_chislsa;
const n=15;
var i,j,x:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do a[i]:=random(101)-50;
for i:=1 to n do write(a[i], ' ' );
writeln;
writeln('Вот и сортировка по возрастанию');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1to n do write (a[i], ' ' );
writeln('Теперь сортируем это по убыванию');
for i:=1 to n do a[i]:=random(101)-50;
for i:=1 to n do write(a[i], ' ' );
writeln('Вот так');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]>a[i] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1to n do write (a[i], ' ' );
end.
