1. Упорядочить данную последовательность по убыванию. Массив задан датчиком случайных чисел на интервале [-54, 33]. Размер произвольный.

Uses crt;

const n=10;

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

i, p:integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random (87) - 54;

writeln (a[i]);

end;

writeln;

repeat

p:=0;

for i:=1 to n-1 do

if a[i]
begin

p:=1;

a[i]:=a[i]+a[i+1];

a[i+1]:=a[i]-a[i+1];

a[i]:=a[i]-a[i+1];

end;

until p=0;

for i:=1 to n do

writeln (a[i]);

end.