Algoritmo detarea
	Definir f,c,x,matriz,vector,mayorr Como Entero
	Dimension matriz[20,20],vector[20]
	para f = 1 Hasta 20 Con Paso 1 Hacer
		para c = 1 Hasta 20 Con Paso 1 Hacer
			matriz(f,c) = azar(9) + 1
		FinPara
	FinPara
	
	para f = 1 Hasta 20 Con Paso 1 Hacer
		para c = 1 Hasta 7 Con Paso 1 Hacer
			Escribir matriz(f,c)," " Sin Saltar			
			vector(c) = vector(c) + matriz(f,c)
		FinPara
		Escribir " "
	FinPara
	mayorr = 0
	para c = 1 Hasta 20 Con Paso 1 Hacer
		Escribir "Suma columna ",c," = ",vector(c)
		si c == 1 Entonces
			mayorr = vector(c)
			x = c
		SiNo
			si vector(c) > mayorr Entonces
				mayorr = vector(c)
				x = c
			FinSi
		FinSi
	FinPara
	Escribir "La columna que tuvo la maxima suma es: ",x," = ",mayorr
FinAlgoritmo