fortran编程题，已知一个5×5的整型数组X，编程统计并输出其中值为0的元素个数N

fortran编程题，已知一个5×5的整型数组X，编程统计并输出其中值为0的元素个数N

F90的程序：
program zero_count
    implicit none
    integer :: i, j, count = 0
    integer, dimension(5,5) :: a
    real :: u
    
    ! initializing array 
    do i = 1, 5 
        do j = 1, 5 
            if (i .eq. j) then
                a(i,j) = 1
            else    
                a(i,j) = 0
            end if    
        end do
    end do

    ! zero element counting
    do i = 1, 5 
        do j = 1, 5 
            if (a(i,j) .eq. 0) then
                count = count + 1
            end if
        end do
    end do

    write (*,'(a, i2)') 'zero count = ', count

end program zero_count运行结果：
zero count = 20