Ответ:

массив заполняется автоматически.

Pascal

const

 n=9;

var

 a : array [0..n] of integer;

 i, c : integer;

begin

 randomize;

 writeln('Массив A');

 for i:=0 to n-1 do begin

   a[i] := random(100);

   write(a[i], '  ');

 end;

 i:=0;

 while i<n-1 do begin

   if a[i]<a[i+1] then begin

     c:=a[i];

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

     a[i+1]:=c;

     dec(i);

   end;

   inc(i);

 end;

 writeln();

 for i:=0 to n-1 do

   write(a[i], '  ');

end.