不是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
考点:
分析:
解答:
评论:
老师: