输入十万个整型数据存入一维数组,输出值和下标都为奇数的元素个数

程序非常简单你自己慢慢去测试吧

C语言这样写:
main(){
int i,n,a[100001];
for(i=1;i<=100000;i++)scanf("%d",&a[i]);
n=0;
for(i=1;i<=100000;i++) if (i%2 && a[i]%2) n++;
printf("\n%d\n",n);
}

用PASCAL这样写(最后结果只要个数，其实数组都可以不要，偏要的话就和C语言一样弄个数组)：
var i,n:integer; x:integer;
begin
n:=0;
for i:=1 to 100000 do
begin
read(x);
if (i mod 2=1) and (x mod 2=1) then n:=n+1;
end;
writeln(n);
end.