51问答网 > Fortran90 程序设计统计N个数中奇数的个数及总和怎么编程？

Fortran90 程序设计统计N个数中奇数的个数及总和怎么编程？

2025-02-27 09:03:26

推荐回答（1个）

回答1：

你好同学，已经做好了。

    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

Fortran90 程序设计 统计N个数中奇数的个数及总和 怎么编程？

Fortran90 程序设计统计N个数中奇数的个数及总和怎么编程？