Lib.nbdp.net
首页
试卷列表
OJ题库
搜索
登录
主页
题库
详解
不是VIP会员,不能显示答案
题目解答
题目:
var
n,i,x,s:longint;
a:array[0..51]of longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
begin
read(x);
if a[i]>x then s:=s+1;
end;
writeln(s);
end.
输入:
5
1 3 5 7 9
2 4 6 8 10
输出:
0
考点:
分析:
解答:
评论:
老师: