Cho hai dãy số nguyên A = (a1, a2, ..., an) và B = (b1, b2, ..., bn). Hãy cho biết có bao nhiêu phần tử của dãy B có mặt trong dãy A
1 câu trả lời
uses crt;
var a,b:array[1..1000]of longint;i,n,j,dem:longint;
begin
clrscr;
write('co bao nhieu phan tu cua day so:');readln(n);
for i:=1 to n do
begin
write('day so a thu ',i,':');readln(a[i]);
end;
for i:=1 to n do
begin
write('day so b thu ',i,':');readln(b[i]);
end;
dem:=0;
for i:=1 to n do
for j:=i to n do
if(b[i]=a[j])then inc(dem);
writeln('so phan tu cua day B có mat trong day A la:',dem);
readln;
end.
Câu hỏi trong lớp
Xem thêm
