WANGYUHANG 2013-11-02 07:40:24
点我顶贴
收藏
删除
program danci;
var
m,n:array[1..1000] of integer;
sum,a,b,c,i,j:integer;
begin
read(a,b,c);
sum:=a;
for i:= 1 to b do
read(n[i]);
for i:= 1 to a do
m[i]:=n[i];
for i:= a+1 to b do
begin
for j:= 1 to a do
begin
if n[i]=m[j] then break
else
m[j]:= n[i];
sum:=sum+1;
break
end;
end;
write(sum);
end.