Отсортируйте 15 РАНДОМНЫХ чисел:
1) По возрастанию;
2) По убыванию.
program rost;
var n,i,j,x,imax:integer;
a:array[1..10] of integer;
begin
for i:=1to 10do read(a[i]);
for i:=1to 10 do write(a[i], ' ' );
for i:=1to 9do
begin
imin:=i;
for j:=i+1 to 10 do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x
end;
for i:=1to 10do write (a[i], ' ' );
end.​

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.