Pascal nhập xuất file:
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ứ hai chứa M số nguyên của dãy thứ nhất
-Dòng thứ ba chứa số nguyên dương N(1<=n<=100)
-Dòng thứ tư 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 nhé sắp thi rồi!!
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.