c:/gdsf/web/fuentes_pascal/MATRIZ3.PAS

{Escribir un programa en Pascal que multiplique por dos los elementos de la
siguiente matriz :
4 7 8
6 9 1
5 0 3}

PROGRAM EJER93;
USES CRT;
CONST arr_num : ARRAY [1..3, 1..3] OF
INTEGER = ( (4, 7, 8),
(6, 9, 1),
(5, 0, 3) );
VAR mult, i, j : INTEGER;
BEGIN
CLRSCR;
FOR i := 1 TO 3 DO
      BEGIN
      FOR j := 1 TO 3 DO
          BEGIN
          mult := arr_num [i, j] * 2;
          WRITELN ('Elemento (', i, ',', j, ') multiplicado por 2: ', mult : 3);
          END;
      END;
END.