Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
program t26
! max value of three numbers
integer::x,y,z
read*,x,y,z
print*,"x=",x
print*,"y=",y
print*,'z=',z
if (x>y) then
if (y>a)then
max=x
else
max=z
end if
end if
if(y>z)then
max=y
end if
print*,'max value of three numbers is',max
end program t26
Advertisements
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy.
AcceptLearn more
