{ Дан линейный массив из n эл-тов. Составить программу упорядочивания элементов таблицы.}

uses crt;
var 
a : array [1..100] of longint;
    j,i,n,max : longint;
begin
  clrscr;
  write('n=');readln(n);
  for i:=1 to n do
  begin
    write('a[',i,']=');
	readln(a[i]);
  end;
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if a[j]>a[i] then
  begin
    max:=a[j];
    a[j]:=a[i];
    a[i]:=max;
  end;
  for i:=1 to n do 
  writeln('a[',i,']=',a[i] );
  readln;
end.