[gấp] chương trình con

[sondaicae1998vn]

Cho 2 biến mảng A, B là 2 tập hợp gồm các số tự nhiên. viết ct tìm và in phần tử con của 2 tập hợp (2 phần tử giống nhau). lưu ý: trong mỗi tập hợp không có số nào trùng nhau. sử dụng ct con
VD:
A={1,5,3,7,4,8}
B={3,12,65,4,78,8}
=> Các phần tử con là 3,4,8

 

[dienvi2010]

Uses Crt;
Type mang=array[1..100] of integer;
Var a,b:mang;
    n,m,i,j:integer;
Procedure TimPTCon;
Begin
     write('Cac phan tu con la: ');
     if n<m then
     begin
     for i:=1 to n do
         for j:=1 to m do
             if a[i]=b[j] then
                write(a[i]:5);
     end
     else
     begin
     for i:=1 to m do
         for j:=1 to n do
             if b[i]=a[j] then
                write(b[i]:5);
     end;
End;
Begin
     clrscr;
     {nhap mang}
     Write('Nhap so p.tu mang 1: '); Readln(n);
     for i:=1 to n do
     begin
          write('a[',i,']: ');
          readln(a[i]);
     end;
     Write('Nhap so p.tu mang 2: '); Readln(m);
     for i:=1 to m do
     begin
          write('b[',i,']: ');
     readln(b[i]);
     end;
     {xuat mang}
     Write('Mang 1: ');
     for i:=1 to n do
         write(a[i]:5);
     writeln;
     Write('Mang 2: ');
     for i:=1 to m do
         write(b[i]:5);
     writeln;
     TimPTCon;
     readln;
End.