你好同学，已经做好了。
program Console3
implicit none
integer::a(10),N=10,i,sum=0,ct=0
a=(/1,2,3,4,5,6,7,8,9,10/)
do i=1,N
if(mod(a(i),2)==1)then
ct=ct+1
sum=sum+a(i)
endif
enddo
write(*,*)"奇数总和sum=",sum
write(*,*)"奇数个数ct=",ct
end program Console3
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024