Cod sursa(job #176177)

Utilizator kis_lorikis levente lorand kis_lori Data 10 aprilie 2008 20:24:39
Problema Pedefe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.54 kb
var N,M,P,i,j,l,k:integer;
    s,s1,s2,s3:array [1..500] of integer;
begin
 assign(input,'pedefe.in'); reset(input);
 assign(output,'pedefe.out'); rewrite(output);
  readln (N,M,P);
  for i:=1 to N do read (s1[i]);
  for i:=1 to M do read (s2[i]);
  for i:=1 to P do read (s3[i]);
   l:=1; j:=1;
   for i:=1 to N do begin
    for k:=j to M do
     if (s1[i]=s2[k]) and (s1[i]>=s[l]) then begin
      s[l]:=s1[i]; l:=l+1; break;
     end;
    j:=j+k;
   end;
  for i:=1 to l do write (s[i],' ');
 close(input); close(output);
end.