	.data
a:	.word 20, 10, 9, 14, 17, 15, 7
n:	.word 7
sp:	.asciiz " "
suma:	.word 0

	.text
	
	# imprimir el arreglo
	li $s0, 0 # i = 0
	lw $s1, n
	
	# apunta al primer elemento
	la $s2, a

	# suma = 0
	li $s3, 0
	
	# ciclo principal (while i < n)
ciclo:	beq $s0, $s1, final
	
	# imprime el valor apuntado por s2
	li $v0, 1
	lw $a0, 0($s2)  # a0 tiene el valor apuntado por s2
	syscall

	# suma = suma + a0
	add $s3, $s3, $a0

	# imprime el espacio
	li $v0, 4
	la $a0, sp
	syscall
	
	# incrementa s2 para que apunte al sig. elemento
	addi $s2, $s2, 4

	# i = i + 1
	addi $s0, $s0, 1

	j ciclo
	
final:
	# guarda la suma en la memoria
	sw $s3, suma

	# promedio
	div $s3, $s1

	# imprime el cociente y el residuo
	li $v0, 1
	mflo $a0
	syscall
	
	li $v0, 4
	la $a0, sp
	syscall
	
	li $v0, 1
	mfhi $a0
	syscall
	
	# stop
	li $v0, 10
	syscall
