Cho trước 2 dãy số nguyên. Hãy tìm các số thuộc dãy thứ nhất mà không thuộc dãy thứ 2.
Dữ liệu nhập: Cho trong file DAYSO.INP gồm 4 dòng:
-Dòng đầu chứa số nguyên dương M(1<=M<=100)
-Dòng thứ 2 chứa M số nguyên của dãy thứ nhất
-Dòng thứ 3 chứa số nguyên dương N(1<=N<=100)
-Dòng thứ 4 chứa N số nguyên của dãy thứ 2
Dữ liệu ra: Cho trong file DAYSO.OUT chứa các số thuộc dãy thứ nhất mà không thuộc dãy thứ 2 hoặc thông báo "NO SOLUTION" nếu không tìm thấy.
Giúp mình nha sắp đi thi rồi :))
Cảm ơn ạ!!!
Uses Crt;
var m,n,i,j:integer;
a,b:array [1..10] of integer;
c:array[1..10] of boolean;
f:text;
begin
assign(f,’tong.inp’);
reset(f);
readln(f,m);
for i:=1 to m do read(f,a[i]);readln(f); readln(f,n);
for i:=1 to n do read(f,b[i]);close(f);
for i:=1 to m do c[i]:=true;
for i:=1 to m do
for j:=1 to n do
if a[i]=b[j] then c[i]:=false;
for i:=1 to m do if c[i]=true then write(a[i]:3);
Readln
End.
chúc bạn thi tốt