.text

main:
      add  $t1, $0, $0     # $t1 <- 0        m = 0

      lw   $t0, n($0)      # $t0 = n
      add  $t2, $0, $0     # $t2 = i <- 0    for ( i = 0;

Loop:
      slt  $t5, $t2, $t0   # $t5 <- i < n    ;i < n; 
      beq  $t5, $0, Exit   # No: Sortir

      sll  $t4, $t2, 2     # $t4 <- i * 4
      lw   $t6, X($t4)     # $t6 <- X[i]
      add  $t1, $t1, $t6   # $t7 <- m + X[i]  m = m + X[i]

      addi $t2, $t2, 1     # $t2 <- $t2 + 1   ;i++ )
      j    Loop            # Propera iteracio

Exit:                      # Fora de for
      div  $t1, $t0        # Lo <- m div n
      mflo $t1             # $t1 <- Lo

      sw   $t1, m($0)      # Guardar el resultat

.end

.data                      # Les dades

n: .word 4                 # Numero d'elements
X: .word 6, 3, 2, 5        # Vector
m: .word 0                 # Resultat de la mitja (entera)

.end