12 lines
187 B
Text
12 lines
187 B
Text
REAL :: n=20, array(n,n)
|
|
|
|
array = NINT( RAN(10,10) )
|
|
|
|
DO row = 1, n
|
|
DO col = 1, n
|
|
WRITE(Name) row, col, array(row,col)
|
|
IF( array(row, col) == 20 ) GOTO 99
|
|
ENDDO
|
|
ENDDO
|
|
|
|
99 END
|