С помощью Паскаля задача: Отсортировать массив из 10 чисел случайным образом по возрастанию и по убыванию.

Const n=10;

Var a:array[1 ... n]of integer;

i, max, p, k:integer;

Begin

writeln ('entered array') ;

for i:=1 to n do

Begin

a[i]:=random (9) + 1;

write (a[i],' ') ;

end;

writeln;

for i:=1 to n-1 do

Begin

max:=a[i];

p:=i;

for k:=i+1 to n do

if a[k]>max then

Begin

max:=a[k];

p:=k;

end;

a[p]:=a[i];

a[i]:=max;

end;

writeln ('new array') ;

for i:=1 to n do

Write (a[i],' ') ;

writeln;

end.