用Fortran语言编写:从一百本图书中寻找书名中有“Fortran”的书

程序如下：

program find_books
    character(30) :: book_titles(100)
    integer :: i, count

    ! 输入100本书的书名
    write(*, *) "请输入100本书的书名："
    do i = 1, 100
        write(*, *) "第", i, "本书的书名："
        read(*, '(a)') book_titles(i)
    end do

    ! 寻找书名中含有“Fortran”的书
    count = 0
    write(*, *) "书名中含有“Fortran”的书有："
    do i = 1, 100
        if (index(book_titles(i), "Fortran") /= 0) then
            write(*, *) book_titles(i)
            count = count + 1
        end if
    end do

    ! 输出寻找结果
    if (count == 0) then
        write(*, *) "没有找到书名中含有“Fortran”的书。"
    else
        write(*, *) "共找到", count, "本书名中含有“Fortran”的书。"
    end if

end program find_books

说明：

1. 定义一个字符数组`book_titles`存储100本书的书名。
2. 采用do循环输入100本书的书名。
3. 采用do循环查找书名中含有“Fortran”的书，并统计数量。
4. 输出查找结果。