Programación Fortran en línea

Ninguno implícito

Enteros::i,j,k,r,c

Real, asignable::Matriz(:, :)

Entero: :m, n

Escribe (*, *) "La dimensión de la matriz de entrada".

Lee (*, *)m , n

Asignación (matriz (m, n))

hacer i=1, m

hacer j=1, n

Escribir ( *, "('Input('i2,i2')')')")i, j

Leer (*, *) matriz (I, j)

Fin do

Fin do

do k=1, m

do i=1, n-1

r=1

hacer j=i 1, n

si (matriz(k, r) lt; matriz (k, j)) entonces

r=k

c=j

Terminará si...

Fin de do

Fin de do

do i=1, m

if(matrix(r, c)>matrix(I, c)) entonces

exportar

otro

escribir ( *, "('find a (' i2 ', ' I2 '))")r, c

Terminará si...

Fin do

Finalizar hacer

Finalizar programa