Заполнить массив из 10 элементов в интервале [-50 ... 50] и отсортировать его по убыванию.

Program t1;

var

i, j: integer;

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

begin

randomize;

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

for i : = 1 to 10 do

begin

mas[i] : = random (100) - 50;

write (mas[i]) ;

end;

begin

for j:=1 to 9 do

for i:=1 to 9-j do

if M[i] < M[i+1] then

swap (mas[i], mas[i+1])

end;

writeln ('отсортированный по убыванию массив: ') ;

for i : = 1 to 10 do write (mas[i]) ;

end;

end.