Laboratorio 16: Arreglos Bidimensionales - HernanSan/FundComputaciones-OF20 GitHub Wiki

11. Escriba un algoritmo que calcule la suma de los elementos de la diagonal principal de una matriz n × n.

Entrada:

1 2 3 4

5 1 6 7

8 9 1 1

2 3 4 1

Salida: La suma de los elementos de la diagonal principal es 4.

Inicio

I,j,sum,i[0-n]

A[n,n],I[0-n]

Para( i<-0 ; i<n ;i++) hacer

	<<”Ingrese los elementos de la fila “,+i

	Para ( j<-0; j<n ; j++) hacer

		<<”Ingrse el elemnto en la posición” +i  “j ”, +j

		>>A[i,j]

	Fin_Para

Fin_Para

Para(i<-0; i<n; i++)  hacer


	Para(j<-0;j<n;j++) hacer

		Si(i==j)entonces

			Sum<-sum+ A[i,j]

		Fin_Si

	Fin_Para

Fin_Para

<<”La suma de los elementos de la de la diagonal principal es: ”,+sum

Fin

12. Escriba un algoritmo que permita sumar el numero de elementos positivos y negativos de una matriz de m × n.

Entrada:

−1 2 3 4

5 −1 6 7

8 9 −1 1

2 3 4 −1

Salida: La suma de los Números Positivos es 54.

La suma de los Números Negativos es −4.

Inicio

Sumpos,sumneg,i,j,i[0-n]

Sumpos<-0, sumneg<-0, i<-0, j<-0

matriz[n,n],i[0-n]

Para(i<-0; i<n;i++)hacer

	<<”Ingrese los elementos de la fila “,+i
	
	Para(j<-0, j<n;j++)hacer

		<<”Ingrse el elemnto en la posición” +i  “j ”, +j

		>>matriz[i,j]

	Fin_Para

Fin_Para

Para(i<-0; i<n; i++)  hacer

	Para(j<-0;j<n;j++) hacer

		Si(matriz[i,j]>0)entonces

			Sumpos<-sumpos + matriz[i,j]

			Sino

				Sumpneg<- sumneg + matriz[i,j]

		Fin_Si

	Fin_Para

Fin_Para

<<”La suma de los números Positivos es: “, +sumpos

<<”La suma de los números negativos es: “, + sumneg

Fin

15. Una matriz m × m es simetrica si sus elementos satisfacen aij= aji a un algoritmo que determine si una matriz es o no simetrica.

Entrada:

1 2 3 4

2 1 2 3

3 2 1 2

4 3 2 1

Salida: La matriz SI es simetrica.

Inicio I,j,i,[0-n]

matriz[n,n],i[0-n]

Para( i<-0 ; i<n ;i++) hacer

	<<”Ingrese los elementos de la fila “,+i

	Para ( j<-0; j<n ; j++) hacer

		<<”Ingrse el elemnto en la posición” +i  “j ”, +j

		>>A[i,j]

	Fin_Para

Fin_Para

Para(i<-0; i<n; i++)  hacer

	Para(j<-0;j<n;j++) hacer

	Si(matriz[i,j] == matriz[i,j]) entonces

		mensaje <-"La matriz SI es simétrica" 

		Sino

			mensaje <-"La matriz NO es simétrica"

	Fin_Si

Fin_Para

Fin_Para

Fin