.data
arr: .word 5, 7, 12, 3, 4
msgMax: .asciiz "\nMax: "

.text
.globl main

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

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

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

loop:
    beq $t1, $zero, print

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

    slt $t5, $t2, $t4  # αν max < current, τότε t5 = 1
    beq $t5, $zero, skip_max

    move $t2, $t4      # max = current

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

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

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

    li $v0, 10
    syscall