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. Program BT;

   Uses crt;

   var a:array[1..100] of integer;

         b:array[1..100] of integer;

   begin

    clrscr;

    write(‘So phan tu cua day a la : ‘);readln(m);

    for i:=1 to m do 

     begin

      write(‘a[‘,i,’]=’);readln(a[i]);

     end;

    write(‘So phan tu cua day b la ‘);readln(n);

    for i:=1 to n do

     begin

      write(‘b[‘,i,’]=’);readln(b[i]);

     end;

    for i:=1 to m do 

    for j:=1 to n do

      if a[i]<>b[j] then write(a[i],b[j]);

   readln

   end.

   Bình luận