var a:array[1..300] of integer;
i,min,max,n,j,x:integer;
begin
writeln('введите кол-во элементов массива');readln(n);
for i:=1 to n do begin a[i]:=random(41)-20; write(a[i]:4);end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
 writeln;
for i:=1 to n do write(a[i]:4);
end.