那个[比较怎么比较啊?老是搞错........

program pingguozaitaotao;

var ti:array[1..2000] of int64;

tj:array[1..2000] of int64;

c,i,j,a,b:integer;

begin

c:=0;

read(a);

read(b);

for i:=1 to a do readln(ti[i]);

for j:=a+1 to a+b do readln(tj[j]);

for j:=a+1 to a+b do

begin

if tj[j]=tj[j] then inc(c);

writeln(c);

end.

哪位高手说一下,...........

1 条评论

  • 1

信息

ID
1291
难度
6
分类
贪心 点击显示
标签
(无)
递交数
9371
已通过
2255
通过率
24%
被复制
6
上传者