fortran依次输入10个数求最大值

2024-12-27 20:17:03
推荐回答(4个)
回答1:

输入用read,输入列表直接给一个数组
求最大值用Max,参数可以用数组

回答2:

real a(10)

read(*,*) a
write(*,*) MaxVal( a )
end

搞定

回答3:

read(*,*) A
Am=A
do i=2,10
read(*,*) A
if (A>Am) Am=A
enddo
write(*,*) Am
end

回答4:

一趟的选择排序!