viết chương trình pascal .nhập vào hai dãy số nguyên .Hãy tìm các số thuộc dãy một mà không thuộc dãy hai

Program Mang;

Uses crt;

Var A,B: array[1..1000] of longint;

Begin

Clrscr;

Write('Nhap so phan tu mang A va B: '); Readln(m,n);

For i:=1 to m do Readln(A[i]);

For j:=1 to n do Readln(B[j]);

For i:=1 to m do

For j:=1 to n do

If A[i] <> B[j] then Write(A[i]:5);

Readln;

End.

Độ phức tạp $O(n)$ nhé

var a,b: array[1..1000] of longint;

     d: array[-10000..10000] of byte;

     i,m,n: word;

begin

readln(n,m);

for i:=1 to n do begin read(a[i]); inc(d[a[i]]); end;

writeln;

for i:=1 to m do begin read(a[i]); inc(d[a[i]]); end;

writeln('Cac so la: ');

for i:=1 to n do if d[a[i]] = 1 then write(a[i],' ');

readln

end.