Cod sursa(job #188866)

Utilizator j8rj72Giurgiu Adrian j8rj72 Data 10 mai 2008 11:24:44
Problema Cel mai lung subsir comun Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.63 kb
program cmlsc;
var a,b:array[1..1024]of integer;
		f,g:text;
		m,n,i,min,max,s:integer;
begin
assign(f,'cmlsc.in');reset(f);
assign(g,'cmlsc.out');rewrite(g);
read(f,n,m);
min:=maxint;
max:=-maxint;
for i:=1 to n do begin
								 read(f,s);
								 a[s]:=1;

								 end;
n:=0;
for i:=1 to m do begin
								 read(f,s);
								 if a[s]=1 then begin
																if s>max then max:=s;
																if s<min then min:=s;
																a[s]:=2;
																n:=n+1;
																end;
								 end;
								 writeln(g,n);
for i:=1 to 1024 do
	if a[i]=2 then write(g,i,' ');
close(f);close(g);
end.