Question

关于FORTRAN的编程题目

1：一位数组中找出最大值，最小值

Answer 1

支持楼上，这就是考试与实际应用的差别。
program main
implicit none
integer :: i, j
real :: temp, amax, amin
real :: a(5) = (/3.,4.,5.,4.,3./)
amax=a(1)
amin=a(1)
do i=2,5
if(a(i).gt.amax) amax=a(i)
if(a(i).lt.amax) amin=a(i)
end do
write( * , * ) 'max=', amax
write( * , * ) 'min=', amin
!一下为由大到小的排序
do i=1,4
do j=i+1,5
if(a(j).gt.a(i))then
temp=a(i)
a(i)=a(j)
a(j)=temp
end if
end do
end do

write(*,*)a
end program main

Answer 2

real :: a(5) = (/3.,4.,5.,4.,3./)
write( * , * ) 'max=', MaxVal( a )
write( * , * ) 'min=', MinVal( a )