Bachiller en Ccs

EJERCICIOS DE MATRICES.
1. Dada una matriz A(I,J), desde I=1, N y desde J=1,N. Calcular cual es el mayor valor ingresado en la matriz y su posición.
Seudolenguaje:
Inicio
Leer N
Para I=1,N
ParaJ=1,N
Leer A(I)
Fin Para
Fin Para
Rmayor=A(1,1)
D=1
E=1
Para I=1,N
Para J=1,N
Si(Rmayor.lt.A(i,j))entonces
Rmayor=A(i,j)
D=i
E=j
Fin si
Fin Para
Fin Para
Escribir Rmayor
Escribir D,JFin
Programa en Fortran
Program MayorPosicion
Integer I,N,J,D,E, Rmayor // Declaración las variables
Dimension A(10,10) // Declaración de la Matriz
Write(*,10) //Escribir por pantalla y formato10
10 Format(3x, 'Ingrese la cantidad de filas y columnas=',$) //Formato que desplaza 3 espacios hacia la derecha 'comentario' y posiciona el cursor en la misma linea
Read(*,*)N // Lectura de lacantidad de filas y columnas de la matriz
Do I=1,N // Indica el ciclo repetitivo para la carga de las filas
Do J=1,N // Indica el ciclo repetitivo para la carga de las columnas
Write(*,20)I,J //Escribe por pantalla y con formato 20 los subindices de las filas y las columnas
20 Format(4x,'La matriz A(',I2,','I2',)=',$)// Formato 20 donde se desplaza 4 espacios hacia la derecha y se comienza acargar la matriz. El primer I2
indica que permite un valor entero con dos campos. De igual manera para el segundo I2, el $ indica que el cursor se posionara en la misma línea.
Read(*,*)A(I,J)//lectura de la matriz
Enddo // Fin Para
EndDo // Fin Para
Rmayor=A(1,1) // Inicialización del primer elemento como el mayor
D=1 // Inicialización del primer elemento de la fila es el mayor
E=1 //Inicialización del primer elemento de la columna es el mayor
Do I=1,N
Do J=1,N
If(Rmayor.Lt.A(I,J))then // Se compara si el valor de Rmayor es mayor a A(I,J)
Rmayor=A(i,j) // El elemento mayorencontrado de la matrix se almacena en esta variable
D=I // mayor encontrado en la fila
E=j // mayor encontrado en la columna
Endif
Enddo
Enddo
Write(*,*)'El elemento mayor es=',Rmayor // Escritura del...