2020年4月21 日上机实习

Posted 2021-02-28 lxl720

程序源码：

program main
implicit none
integer i,sum
real t(7),tmax
tmax=0.0;sum=0
do i=1,7
   read*,t(i)
   if(t(i)>=tmax) then
   tmax=t(i)
   end if
   if(t(i)>20) then
   sum=sum+1
   end if
end do 
print*,‘日最高气温的最大值为：‘
print*,‘tmax=‘,tmax
print*,‘日最高气温所在的日期为：‘
do i=1,7
    if(t(i)==tmax) write(*,"(1X,‘三月‘,I2,‘日‘)") i+22
end do
print *,‘气温大于20℃的天数为：‘
print *,‘sum=‘,sum
end