1. Задан массив из 10 элементов (5; 150). Отсортировать массив по убыванию

Var

i, j, p:integer;

a:array[1 ... 10]of integer;

begin

writeln ('Исходный массив:') ;

for i:=1 to 10 do

begin

a[i]:=random (5,150) ;

write (a[i],' ') ;

end;

writeln;

for i:=1 to 10 do

for j:=i to 10 do

if a[j]>a[i] then

begin

p:=a[i];

a[i]:=a[j];

a[j]:=p

end;

writeln ('Отсортированный массив:') ;

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

end.