求fortran语言改正!将10个数的数组A中最大的元素与A(10)互换
求fortran语言改正!将10个数的数组A中最大的元素与A(10)互换
program main
implicit none
real,dimension(10)::a
real term,max
integer i
read*,a
max=a(1)
DO I=2,10
IF(a(i)>=max)then
max=a(i)
term=max
max=a(10)
a(10)=term
end if
end do
print*,a
end有什么错啊?为什么输出结果不变?