SLE_Practica43_SumaMatricesDinamica_Columnas

/* Elabora un algoritmo que asigne memoria dinámica a un arreglo de 3 * 3.
   Sumar las columnas e imprimir que columna tuvo la máxima suma y la suma de esa columna.

*/

var
    M: vector[3,3] numerico
    suma_columnas: vector [3] numerico
    i, j, max_suma, col_max: numerico

inicio
   cls()

    // Inicializar la suma de las columnas
    desde j=1 hasta 3 {
        suma_columnas[j] = 0
    }

    // Leer los elementos de la matriz y calcular la suma de cada columna
    desde i=1 hasta 3 {
        desde j=1 hasta 3 {
            imprimir("Introduce el elemento [", i, "][", j, "]: ")
            leer(M[i,j])
            suma_columnas[j] = suma_columnas[j] + M[i,j]
        }
    }

    // Encontrar la columna con la máxima suma
    max_suma = suma_columnas[1]
    col_max = 1
    desde j=2 hasta 3 {
        si (suma_columnas[j] > max_suma) {
            max_suma = suma_columnas[j]
            col_max = j
        }
    }

    // Imprimir la columna con la máxima suma y la suma de esa columna
    imprimir("\nLa columna con la máxima suma es: ", col_max)
    imprimir("\nLa suma de la columna ", col_max, " es: ", max_suma)

fin