c program for array
DIMENSION X(100)
WRITE(*,*)'ENTER THE NUMBER OF ELEMENTS'
READ(*,*) N
WRITE(*,*)'ENTER ELEMENTS ONE BY ONE'
DO 5 I=1,N
5 READ(*,*) X(I)
DO 10 I=1,N-1
DO 11 J=I+1,N
IF(X(I).LT.X(J)) THEN
Y=X(I)
X(I)=X(J)
X(J)=Y
STOP
ENDIF
10 CONTINUE
WRITE(*,*)'STORED LIST'
DO 12 I=1,N
12 WRITE(*,15) A(I)
15 FORMAT('/',F10.3)
END
|
No responses found. Be the first to respond and make money from revenue sharing program.
|