Cod sursa(job #461545)

Utilizator marta_diannaFII Filimon Marta Diana marta_dianna Data 7 iunie 2010 13:53:48
Problema Sortare topologica Scor 50
Compilator fpc Status done
Runda Arhiva educationala Marime 0.61 kb
program p1;
var f,g:text;
    a:array[1..3900,1..3900] of shortint;
    d:array[1..4000] of integer;
    i,n,j,m,x,y,l:longint;
begin
     assign(f,'sortaret.in');reset(f);
     assign(g,'sortaret.out');rewrite(g);
     read(f,n,m);
     for i:=1 to m do
     begin
          read(f,x,y);
          if a[x,y]=0 then begin a[x,y]:=1;d[y]:=d[y]+1 end;
     end;
     for i:=1 to n do
     for j:=1 to n do
     if d[j]=0 then
     begin
        d[j]:=-1;
        write(g,j,' ');
        for l:=1 to n do
        if a[j,l]=1 then d[l]:=d[l]-1;
        break;
     end;
     close(f);
     close(g);
end.