下面程序的功能是输入一组正整数,以数字-1为结尾标志,计算并输出所有数据之和.用fortran写

下面程序的功能是输入一组正整数,以数字-1为结尾标志,计算并输出所有数据之和.用fortran写
下面程序的功能是输入一组正整数,以数字-1为结尾标志,计算并输出所有数据之和.用fortran写

下面程序的功能是输入一组正整数,以数字-1为结尾标志,计算并输出所有数据之和.用fortran写

代码：

program data_sum
    implicit none
    integer :: num, sum = 0

    do
        read (*,*) num
        if (num .eq. -1) then 
            exit 
        end if
        if (num .gt. 0) then 
            sum = sum + num 
        end if
    end do
    write (*,'(a, i6)') 'sum = ', sum

end program data_sum

运行结果：

1
2
3
4
5
6
-1
sum =     21