Pascal
Modified: Wednesday, 22-12-2021 07:00 AM
Bài 1:
Cho 2 mảng số nguyên giá trị không vượt quá 100.
Tìm ra các số không cùng thuộc cả 2 mảng trên
VD: Cho File Input có nội dung như sau:
4
1 3 4 5
5
2 1 5 6 9
Output:
5
2 3 4 6 9
Bài 2:
Cho 2 mảng số nguyên với giá trị mỗi phần tử không quá 10^4
Ghép 2 mảng thành 1 mảng với các số trùng nhau chỉ xuất ra 1 lần.
VD:
Input
4 6
4 1 6 -1
3 7 -1 5 6 4
Output
-1 1 3 4 5 6 7
Bài 1:
var a:array[1..100,1..2] of string;
c:array[1..100] of byte;
n,i,x:byte;
f:text;
begin
assign(f,'in.inp'); reset(f);
readln(f,n);
for i:=1 to n do
begin
read(f,x);
a[x,1]:='x';
end;
readln(f,n);
for i:=1 to n do
begin
read(f,x);
a[x,2]:='x';
end;
Close(f);
x:=0;
for i:=1 to 100 do
if ((a[i,1]='x') and (a[i,2]=''))
or ((a[i,1]='') and (a[i,2]='x')) then
begin
inc(x);
c[x]:=i;
end;
writeln(x);
for i:=1 to x do
write(c[i],#32);
readln;
end.
Bài 2:
var a:array[-9999..9999] of string;
c:array[1..10000] of longint;
m,n,i,x,d:longint;
f:text;
begin
assign(f,'taphop.inp'); reset(f);
readln(f,n,m);
for i:=1 to n do
begin
read(f,x);
a[x]:='x';
end;
for i:=1 to m do
begin
read(f,x);
a[x]:='x';
end;
d:=0;
for i:= (-9999) to 9999 do
if (a[i]='x') then
begin
inc(d);
c[d]:=i;
end;
writeln(d);
for i:=1 to d do
write(c[i],' ');
readln;
end.