DIAGONAL PRINCIPAL - PSeInt.Site

PSeInt - FLEXIBLEDESCARGA CÓDIGO

Proceso www_PSeInt_Site Definir f, c, dato, opc, suma, s, may, men, repite como Entero; Dimension suma[4,4]; Para f = 1 hasta 4 Con paso 1 Hacer Para c = 1 hasta 4 Con paso 1 Hacer suma[f,c] = azar(9); FinPara FinPara Escribir "DATOS DE LA MATRIZ"; Para f = 1 hasta 4 Con paso 1 Hacer Para c = 1 hasta 4 Con paso 1 Hacer Escribir Sin Saltar suma[f,c], " "; FinPara Escribir " "; FinPara Escribir " "; Escribir "------------- TRABAJO CON MATRIZ ----------------"; Escribir "1. Suma de las diagonales principales."; Escribir "2. Promedio de la fila y columna escogida por el usuario final."; Escribir "3. Daterminar el número mayor y menor de la matriz."; Escribir "4. ¿Cuántas veces se repite un número dado?"; Escribir Sin Saltar "Opcion : "; Leer opc; Escribir " "; Segun (opc) Hacer 1 : s = 0; Para f = 1 hasta 4 Con paso 1 Hacer s = s + suma[f,f]; FinPara Escribir "SUMA DIAGONAL 1 :",s; s = 0; Para f = 1 hasta 4 Con paso 1 Hacer s = s + suma[f,5-f]; FinPara Escribir "SUMA DIAGONAL 2 :",s;