Сортировка массивов по возрастанию и по убыванию. Массив задается от
датчика случайных чисел random(). Сортировать один и тот же исходный
массив и по убыванию и по возрастанию значений элементов.

var i,j,p :integer; a:array[1..10] of integer;beginfor i:=1 to 10 dobegina[i]:=random(20)+1;writeln(a[i]);end;writeln('Массив по возрастанию');for i:=1 to 10 do   for j:=1 to 10 do begin if a[i]<a[j] then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end;end; for i:=1  to 10 do writeln(a[i]);writeln('Массив по убыванию');for i:=1 to 10 do  for j:=1 to 10 do begin  if a[i]>a[j] then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end;end; for i:=1  to 10 do writeln(a[i]);readln;end.