Fortran90 程序设计 统计N个数中奇数的个数及总和 怎么编程？
展开全部
你好同学，已经做好了。
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
