利用Fortran统计输入的10个数据中数组元素的下标与其值相同的元素个数

下面是一个简单的Fortran程序，可以计算输入的10个数据中数组元素的下标与其值相同的元素个数：

program count_same_index_value
  implicit none
  integer :: i, count, values(10)

  ! Read in values
  print *, "Enter 10 integer values:"
  do i = 1, 10
     read *, values(i)
  end do

  ! Count values with same index and value
  count = 0
  do i = 1, 10
     if (i == values(i)) then
        count = count + 1
     end if
  end do

  ! Output results
  print *, "The number of elements with the same index and value is:", count
end program count_same_index_value

在这个程序中，我们首先定义了一个整数数组 `values`，并要求用户输入10个整数。然后我们遍历这个数组，如果当前元素的下标等于它的值，则将计数器 `count` 加 1。最后输出计数器的值作为结果。