作业帮 > 综合 > 作业

求fortran语言改正!将10个数的数组A中最大的元素与A(10)互换

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/12 14:17:34
求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有什么错啊?为什么输出结果不变?
求fortran语言改正!将10个数的数组A中最大的元素与A(10)互换
IF(a(i)>=max)then
max=a(i)
a(i)=a(10)
a(10)=max
end if