首先,您需要打开一个 Fortran 程序文件,然后可以使用以下代码来完成您的任务:
program main implicit none
integer, dimension(10) :: arr integer :: i, max, temp
! 初始化数组 do i = 1, 10 arr(i) = i end do
! 查找最大值 max = arr(1) do i = 2, 10 if (arr(i) > max) then max = arr(i) end if end do
! 将最大值插在