fork download
  1. program grandprix;
  2. const MAXN=30;
  3. MAXM=100;
  4. var N,M,i,j, ricordapole : integer;
  5. grigliapartenza : array [1..MAXN] of integer;
  6. sorpassi1 : array[1..MAXM] of integer;
  7. sorpassi2 : array[1..MAXM] of integer;
  8. begin
  9. readln (N,M);
  10. for i:=1 to N do readln(grigliapartenza[i]);
  11. for i:=1 to M do
  12. readln(sorpassi1[i], sorpassi2[i]);
  13. ricordapole:=grigliapartenza[1];
  14. for i:=1 to M do
  15. if sorpassi2[i]= ricordapole then ricordapole:=sorpassi1[i];
  16. writeln(ricordapole);
  17. end.
Success #stdin #stdout 0.01s 5292KB
stdin
3 6
3
1
2
2 1
1 2
1 3
2 3
2 1
3 1

stdout
2