[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1022
{A}
Var A: Array[1..100,1..100] of Boolean;
    N,I,J,T: LongInt;
    V: Array[1..100] of LongInt;
Function ValPoint(K: LongInt):LongInt;
Var
  MaxVal,I,T: LongInt;
Begin
  MaxVal:=0;
  For I:=1 to N do
    If ((I<>K) and (A[K,I])) then begin
      T:=ValPoint(I);
      If MaxVal<T then MaxVal:=T;
    End;
  ValPoint:=MaxVal+1;
End;

Begin
  Read(N);
  For I:=1 to N do begin
    Read(J);
    While J<>0 do begin
      A[I,J]:=True;
      Read(J);
    End;
  End;

  For I:=1 to N do
    V[I]:=ValPoint(I);

  For I:=1 to N do begin
    T:=1;
    For J:=2 to N do
      If V[T]<V[J] then T:=J;
    V[T]:=0;
    Write(T);
    If I<>N then Write(' ');
  End;
End.
Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 981