Algoritmo detarea
	definir x,matriz Como Entero
	Dimension matriz[6,8]
	a = 1
	para f = 1 Hasta 6 Con Paso 1 Hacer
		para c = 1 Hasta 8 Con Paso 1 Hacer
			Escribir "Ingresa un numero: ",a
			leer matriz(f,c)
			a = a + 1
		FinPara
	FinPara
	para f = 1 Hasta 6 Con Paso 1 Hacer
		para c = 1 Hasta 8 Con Paso 1 Hacer
			Escribir matriz(f,c)," " Sin Saltar
		FinPara
		Escribir ""
	FinPara
	para f = 1 Hasta 6 Con Paso 1 Hacer
		para c = 1 Hasta 8 Con Paso 1 Hacer
			si matriz(f,c) < 0 Entonces
				Escribir "El numero negativo se encuentra en la Fila: ",f," columna: ",c
			FinSi
		FinPara
	FinPara
FinAlgoritmo