求一道编程题 数组中元素均为正数，求数组a中偶数个数及偶数平均值 解题过程

Question

答案要 简单易懂 易于调试 避免用那些不常见的关键词 表达式语句

Answer 1

<%
dim arr:arr=array(2,34,45,514,65,78,76,90,874,35)
dim count:count=0
dim sum:sum=0
for i=0 to ubound(arr)
if arr(i) mod 2 = 0 then
count=count+1
sum=sum+arr(i)
end if
next

response.write "偶数个数："&count
response.write "<br>"
response.write "偶数平均值："&sum/count
%>

Answer 2

PASCAL:
var a:array[1..1000] of integer；
n,i,s,t:integer;
begin
readln（n）；
for i：=1 to n do read（a[n]);{读入数组}
s:=0;{记录偶数和}
t:=0;{记录偶数个数}
for i:=1 to n do
if not(odd(a[i])) then{如果是偶数}
begin
inc(t);
inc(s,a[i]);
end;
writeln(t);{输出偶数个数}
writeln(s/t:0:2);{平均数,保留两位小数}
end.