.data
arr: .word 5, 7, 12, 3, 4
msgMin: .asciiz "\nMin: "

.text
.globl main

main:
    la $t0, arr        # pointer στον πίνακα
    li $t1, 5          # πλήθος στοιχείων

    lw $t3, 0($t0)     # min = πρώτο στοιχείο

    addi $t0, $t0, 4   # πάμε στο δεύτερο στοιχείο
    addi $t1, $t1, -1  # απομένουν 4 στοιχεία

loop:
    beq $t1, $zero, print

    lw $t4, 0($t0)     # current element

    slt $t5, $t4, $t3  # αν current < min, τότε t5 = 1
    beq $t5, $zero, skip_min

    move $t3, $t4      # min = current

skip_min:
    addi $t0, $t0, 4   # επόμενο στοιχείο
    addi $t1, $t1, -1
    j loop

print:
    li $v0, 4
    la $a0, msgMin
    syscall

    li $v0, 1
    move $a0, $t3
    syscall

    li $v0, 10
    syscall