Question

Answer 1

mọi người làm nhanh giúp mình nhé mai mình phải nộp rồi

 

Answer 2

Program HOC24;

const fi='input.txt'

fo='output.txt'

var d,j,i,m,n: integer;

a,b: array[1..32000] of integer;

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n,m);

for i:=1 to n do read(f,a[i]);

readln(f);

for i:=1 to m do read(f,b[i]);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

for i:=1 to n do

for j:=1 to m do

if a[i]=b[j] then d:=d+1;

writeln(f,d);

for i:=1 to n do

for j:=1 to m do

if a[i]=b[j] then write(f,a[i],' ');

close(f);

end;

BEGIN

ip;

out;

END.