{Escribir un programa en Pascal que sume, independientemente, los elementos
positivos y negativos de la siguiente matriz :
- 12 23 32
45 - 56 - 10
25 78 89}
PROGRAM EJER92; {Autor: Victor Sanchez Sanchez email: [email protected]}
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_p, suma_i : INTEGER;
BEGIN
CLRSCR;
FOR i := 1 TO 3 DO
BEGIN
FOR j := 1 TO 3 DO
BEGIN
IF arr_num [i, j] >= 0 THEN
suma_p := suma_p + arr_num [i, j]
ELSE
suma_i := suma_i + arr_num [i, j];
END;
END;
WRITELN ('La suma de los numeros pares es: ', suma_p);
WRITELN ('La suma de los numeros impares es: ', suma_i);
END.