Current location - Plastic Surgery and Aesthetics Network - Plastic surgery and medical aesthetics - Fortran inputs 4 integers and requires them to be output in order from small to large.
Fortran inputs 4 integers and requires them to be output in order from small to large.

dimension m(4)

Read(*,*)m

Do 100 I=1,3

Do 100 j =I+1,4

If m(I)>m(j) then

K=m(I)

M(I)=m (j)

M(j)=k

Endif

100 Continue

Write(*,*)m

Stop

End

Related articles
  • What's the best way to lift eyebrows?
  • Cang Zhitao Shan Gui's ten miles of frost and snow borrow things instead of shadows to win poetry. I didn't learn any conditions to help. Level 54 didn't get it when it went to kill BS.
  • Can I pass the Xinyu City Business Examination this year with a score of 62?
  • Shiwu plastic
  • Is there a charge for visiting Guiyang Art Fair on 20 18? (Personal visit)
  • White Arrizo GX owner Zhengzhou East Station meets blue Arrizo GX.
  • How to make brown sugar hemp balls?
  • How much is the circumcision of Taizhou Luqiao?
  • Why is the Yuzhu folding fan big in bone and flat in edge?
  • What should I do if the nose is sunken?

    • copyright 2024 Plastic Surgery and Aesthetics Network All rights reserved