[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1290
Var
  A: Array[1..25000] of Integer;
  N,I: LongInt;

procedure quicksort(Lo,Hi: integer);

procedure sort(l,r: integer);
var
  i,j,x,y: integer;
begin
  i:=l; j:=r; x:=a[(l+r) DIV 2];
  repeat
    while a[i]<x do i:=i+1;
    while x<a[j] do j:=j-1;
    if i<=j then
    begin
      y:=a[i]; a[i]:=a[j]; a[j]:=y;
      i:=i+1; j:=j-1;
    end;
  until i>j;
  if l<j then sort(l,j);
  if i<r then sort(i,r);
end;

begin
  sort(Lo,Hi);
end;

Begin
  Readln(N);
  For I:=1 to N do
    Readln(A[I]);
  quicksort(1,N);
  For I:=N downto 1 do
    Writeln(A[I]);
End.


Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 869