Algoritmo detarea
	Definir f,c,matriz,vector Como Entero
	Dimension matriz[5,5],vector[5] 
	para f = 1 Hasta 5 Con Paso 1 Hacer
		para c = 1 Hasta 5 Con Paso 1 Hacer
			matriz(f,c) = azar(9) + 1
		FinPara
	FinPara
	para f = 1 Hasta 5 Con Paso 1 Hacer
		para c = 1 Hasta 5 Con Paso 1 Hacer
			Escribir matriz(f,c)," " Sin Saltar
			si f == c Entonces
				vector(f) = matriz(f,c)
			FinSi
		FinPara
		Escribir " "
	FinPara
	para f = 1 Hasta 5 Con Paso 1 Hacer
		Escribir vector(f)
	FinPara
FinAlgoritmo