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

PROGRAM EJER92;
USES CRT;
CONST arr_num : ARRAY [1..3, 1..3] OF
INTEGER = ( ( - 12, 23, - 32),
              (45, - 56, - 10),
              (25, 78, 89) );
VAR i, j, suma_pos, suma_neg : INTEGER;
BEGIN
suma_pos := 0;
suma_neg := 0;
CLRSCR;
FOR i := 1 TO 3 DO
      BEGIN
      FOR j := 1 TO 3 DO
          BEGIN
          IF arr_num [i, j] < 0 THEN
             suma_neg := suma_neg + arr_num [i, j]
          ELSE
             suma_pos := suma_pos + arr_num [i, j]
          END;
      END;
WRITELN ('SUMA POSITIVOS: ', suma_pos : 5);
WRITELN ('SUMA NEGATIVOS: ', suma_neg : 5);
END.