숫자 목록을 읽어들여 

개수를 헤아리고

목록에서 가장 큰 수와 가장 작은수를 찾고

그 수의 위치를 찾아서

출력하는 프로그래밍 작성


::::::::::::포트란::::::::::::::::



program k


integer :: N

real :: number,BIGnumber,SMnumber

character(1) :: answer

N = 0

bignumber = 0.0

do

  print *, "enter number"

  read *, number

  N = N+1

  print *, "Number",N,"=",number

  

  if ((N>=2) .and. (bignumber < number))  then

    bignumber = number

    else if (N==1) then

      bignumber = number

  end if


  if ((N>=2) .and. (smnumber > number))  then

    smnumber = number

    else if (N==1) then

      smnumber = number

  end if

  

  print *,"more number to enter? Y or N"

  read *, answer

  if ( answer == "n") exit

end do


print *, N,"numbers entered"

print *, "Biggest number = ", BIGnumber

print *, "Smallest number = ", SMnumber





end program k




대가리 쥐어짜면서 여기까진 햇는데

이거 위치는 도대체 어떻게 찾음??