1. Упорядочить данную последовательность по убыванию. Массив задан датчиком…

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]