100] OF INTEGER; I,J,N,H
Bài 2:
uses crt;
var g,f:text;
a,b:array[1..100] of integer;
i,j,n,h:integer;
begin
clrscr;
assign(f,'shoes.inp');
reset(f);
assign(g,'shoes.out');
rewrite(g);
readln(f,n);
for i:=1 to n-1 do
read(f,a[i]);
readln(f,a[n]);
for i:=1 to n do
read(f,b[i]);
for j:=1 to n do
if a[i]=b[j] then
begin
b[j]:=0;
break;
end;
if b[i]<>0 then
h:=h+1;
writeln(g,h);
close(f);
close(g);
readln;
end.
Bạn đang xem bài 2: - Đề thi HSG tin năm học 2009-2010 tỉnh Vĩnh Phúc
![Đáp án tham khảo bài 2: - Đề thi HSG tin năm học 2009-2010 tỉnh Vĩnh Phúc](https://www.traloihay.net/traloihay/question/accepted_answers/2022/02_12/6206ea4bf1c9e.webp?v=20220420142246)