pascal集合中找数描述有2个整数数列A,B,每个数列包含n个数(0到100之间,不会重复),编写程序完成下列要求:①找出在B中出现而在A中没有出现的那些数,并输出.②找出在B中出现而在A中也出现
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/08 18:10:09
pascal集合中找数描述有2个整数数列A,B,每个数列包含n个数(0到100之间,不会重复),编写程序完成下列要求:①找出在B中出现而在A中没有出现的那些数,并输出.②找出在B中出现而在A中也出现
pascal集合中找数
描述
有2个整数数列A,B,每个数列包含n个数(0到100之间,不会重复),编写程序完成下列要求:①找出在B中出现而在A中没有出现的那些数,并输出.②找出在B中出现而在A中也出现的那些数,并输出.
输入格式
第一行 n 第二行数列A第三行数列B
输出格式
第一行,在B中出现而在A中没有出现的那些数第二行,在B中出现而在A中也出现的那些数
样例输入
5
12 25 23 22 13
10 23 11 9 25
样例输出
9 10 11
23 25
pascal集合中找数描述有2个整数数列A,B,每个数列包含n个数(0到100之间,不会重复),编写程序完成下列要求:①找出在B中出现而在A中没有出现的那些数,并输出.②找出在B中出现而在A中也出现
program zjh;
var
n,i,x:longint;
f,g:array[1..100]of boolean;
begin
readln(n);
fillchar(f,sizeof(f),false);
for i:=1 to n do begin
read(x);
f[x]:=true;
end;
fillchar(g,sizeof(g),false);
for i:=1 to n do begin
read(x);
g[x]:=true;
end;
for i:=1 to 100 do
if g[i] and(not f[i]) then
write(i,' ');
writeln;
for i:=1 to 100 do
if f[i] and g[i] then
write(i,' ');
writeln;
end.