Ejercicio 13(Arrays)

Plantee e implemente un programa en PASCAL que permita introducir apropiadamente una matriz NxN de números enteros (0<N<10), la visualice apropiadamente por pantalla (formato matricial) y muestre el elemento mayor y el elemento menor de dicha matriz y sus posiciones.


PROGRAM matrices(input,output);

CONST

limitefilas = 10;
limitecolumnas = 10;

TYPE

Tabla = ARRAY[1..limitefilas, 1..limitecolumnas] OF integer;

VAR
matriz:Tabla;
fila,columna:integer;
a:integer;
(*******************************************************************************)
PROCEDURE leer;
VAR
   I,L,numero:integer;
BEGIN
     write('Escriba el numero de filas de la matriz: ');
     read(fila);
     write('Escriba el numero de columnas de la matriz: ');
     read(columna);
     FOR I:=1 TO fila DO
         BEGIN
         FOR L:=1 TO columna DO
             BEGIN
             write('Escriba el numero del elemento fila: ',I:2,' columna: ',L:2,' :');
             read(numero);
             matriz[I,L]:= numero;
             END;
         END;
END;
(*******************************************************************************)
PROCEDURE Imprimir_Matriz;

VAR
   I,L: integer;
BEGIN
     FOR I:=1 TO fila DO
     BEGIN
     writeln;
     FOR L:=1 TO columna DO
         BEGIN
         write(matriz[I,L]:8);
         write(' ');
         END;
     END;
     writeln;
END;
(*******************************************************************************)
BEGIN
leer;
Imprimir_Matriz;
read(a);
END.

Ejemplo de ejecucion