Muy sencillo, una vez que tienes todos los huecos de la matriz rellenos, haces dos bucles anidados (uno para cada fila de la matriz), quedándote algo similar a esto:
VAR
i, j, division: INTEGER;
...
BEGIN
...
...
...
FOR i:= 1 TO 10 DO
FOR j:= 1 TO 12 DO
BEGIN
division:= matriz[i, j] DIV 10;
IF matriz[i, j] MOD 10 = 2 THEN
writeln(matriz[i, j]);
END;
END.
Es un algoritmo que se puede hacer de forma mucho más eficiente y modular, pero la idea es esta
un saludo.
Mostrar Mensajes
