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

uses crt;const n=10;var a:array[1..n] of integer;i,p:integer;beginrandomize;for i:=1 to n dobegina[i]:=random(87)-54;writeln(a[i]);end;writeln;repeatp:=0;for i:=1 to n-1 doif a[i]<a[i+1] thenbeginp:=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 dowriteln(a[i]);end.