	.data
a:	.word 8, 1, 7, 7, 2, 11, 9, 5, 11, 17, 22, 12, 7, 4, -1
m1:	.asciiz "Da un número: "
m2:	.asciiz "Número de mayores: "
m3:	.asciiz "Número de menores: "
m4:	.asciiz "Número de iguales: "
ret:	.asciiz "\n"

	.text
	
	# Lee un entero en t0
	li $v0, 4
	la $a0, m1
	syscall
	
	li $v0, 5
	syscall
	
	move $t0, $v0
	
	# t1 apunta al arreglo
	la $t1, a

	# inicializa los contadores
	li $s0, 0	# mayores
	li $s1, 0	# menores
	li $s2, 0	# iguales
	
	# ciclo principal
ciclo:
	lw $t2, 0($t1)
	beq $t2, -1, final

	bgt $t2, $t0, mayor
	blt $t2, $t0, menor
	addi $s2, $s2, 1
	j incrementa
	
mayor:	addi $s0, $s0, 1
	j incrementa

menor:	addi $s1, $s1, 1

incrementa:
	addi $t1, $t1, 4	# apunta al siguiente elemento
	j ciclo

final:
	li $v0, 4
	la $a0, m2
	syscall
	
	li $v0, 1
	move $a0, $s0
	syscall
	
	li $v0, 4
	la $a0, ret
	syscall
	
	# ------------------
	
	li $v0, 4
	la $a0, m3
	syscall
	
	li $v0, 1
	move $a0, $s1
	syscall
	
	li $v0, 4
	la $a0, ret
	syscall

	# ------------------

	li $v0, 4
	la $a0, m4
	syscall
	
	li $v0, 1
	move $a0, $s2
	syscall
	
	li $v0, 4
	la $a0, ret
	syscall
		
	# stop
	li $v0, 10
	syscall
		