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

0 bình luận về “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”

1. Độ 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.

   Bình luận

2. 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.

   Bình luận