this is aarch64 assembly language program.
Write sum_array recursively
Here is code:
.section .rodata
getnstr: .string "Enter a value of n: "
.align 3
origstr: .string “The original array is:\n”
.align 3
dupstr: .string “\n\nThe sorted duplicate array is:\n”
.align 3
dupstr2: .string "\n\nThe average of the duplicate array is: "
intstr: .string “%d”
.align 3
tab10dintstr: .string “%5d”
.align 3
nlstr: .string “\n”
.align 3


.section .bss
n: .skip 4
n16: .skip 4

.section .text
.global main
.type main, @function

main:
stp x29, x30, [sp, #-16]! // main prolog

// Generate a seed to be used by srand and set the seed for the random number generator
mov x0, 0
bl time
bl srand

// prompt the user to enter their TCU id number
ldr x0, =getnstr
bl printf
ldr x0, =intstr
ldr x1, =n
bl scanf

// Check if the TCU id number is even
ldr x0, =n
and x0, x0, #1
cmp x0, #0
beq even

mov x0, #33
ldr x1, =n
str x0, [x1]
b endgetnstr

even:
mov x0, #42
ldr x1, =n
str x0, [x1]

endgetnstr:
// compute next highest multiple of 16 that is bigger or equal to n
adr x1, n
ldr w1, [x1]
sbfiz x1, x1, #2, #20
add x1, x1, #0xf
and x1, x1, #0xfffffffffffffff0
adr x2, n16
str w1, [x2]

// create the storage for “n” integers (namely orig array) on stack pointer
sub sp, sp, x1

// call init_array
mov x0, sp // move address of orig array to x0
bl init_array

// print orig array
ldr x0, =origstr
bl printf
mov x0, sp
bl print_array

// create the storage for “n” integers (namely dup array) on stack pointer
adr x2, n16
ldr w2, [x2]
sub sp, sp, x2

// call copy_array
mov x0, sp // address of dup array
add x1, sp, x2 // address of orig array
bl copy_array

// call insertion_sort
mov x0, sp // address of dup array
bl insertion_sort

// print dup array
ldr x0, =dupstr
bl printf
mov x0, sp
bl print_array
ldr x0, =nlstr
bl printf

// call compute_average
ldr x0, =dupstr2
bl printf
mov x0, sp // address of dup array
bl compute_average

// print out the average to standard output
ldr x0, =intstr
bl printf

// restore storage for “n” integers (namely dup array) on stack pointer
adr x1, n16
ldr x1, [x1]
add sp, sp, x1

// restore storage for “n” integers (namely orig array) on stack pointer
adr x1, n16
ldr x1, [x1]
add sp, sp, x1

ldp x29, x30, [sp], #16 // main epilog
mov x0, #0
ret

.type init_array, @function
init_array:
stp x29, x30, [sp, #-16]! //function prolog

mov x19, #0 // loop counter
ldr x20, =n
ldr w20, [x20]
mov x21, x0

loop1:
cmp x19, x20
bge endloop1

// save random value to sp array
bl rand
and w0, w0, #255
str w0, [x21, x19, lsl 2]

add x19, x19, #1
b loop1

endloop1:
ldp x29, x30, [sp], #16 //function epilog
ret

.type print_array, @function
print_array:
stp x29, x30, [sp, #-16]! //function prolog

mov x19, #0 // loop counter
ldr x20, =n
ldr w20, [x20]
mov x21, x0

loop2:
// restore x1, x2 from sp
cmp x19, x20
bge endloop2

ldr x0, =tab10dintstr
ldr w1, [x21, x19, lsl 2]
bl printf

add x19, x19, #1

// check if x19 is multiple of 5, if yes print nlstr
mov x22, #5
sdiv x23, x19, x22
mul x24, x23, x22
cmp x24, x19
bne continue_loop2
ldr x0, =nlstr
bl printf

continue_loop2:
b loop2

endloop2:
ldp x29, x30, [sp], #16 //function epilog
ret


.type copy_array, @function
copy_array:
stp x29, x30, [sp, #-16]! //function prolog

mov x19, #0 // loop counter
ldr x20, =n
ldr w20, [x20]
mov x21, x1 // address of orig array
mov x22, x0 // address of dup array

loop3:
cmp x19, x20
bge endloop3

ldr w23, [x21, x19, lsl 2] // load value from orig array
str w23, [x22, x19, lsl 2] // store value to dup array

add x19, x19, #1
b loop3

endloop3:
ldp x29, x30, [sp], #16 //function epilog
ret

.type compute_average, @function
compute_average:
stp x29, x30, [sp, #-16]! //function prolog

mov x19, #0 // loop counter
ldr x20, =n
ldr w20, [x20]
mov x21, x0 // address of dup array

mov x1, #0 // startidx = 0
mov x2, x20 // stopidx = n
bl sum_array
mov x22, x0 // put result of sum_array

endloop4:
udiv x1, x22, x20
ldp x29, x30, [sp], #16 //function epilog
ret

.type compute_average, @function
sum_array:
stp x29, x30, [sp, #-16]! //function prolog

// x0 has address of dup array
// x1 has startidx
// x2 has stopidx

ldp x29, x30, [sp], #16 //function epilog
ret

.type insertion_sort, @function
insertion_sort:
stp x29, x30, [sp, #-16]! // function prolog
mov x29, sp

ldr x20, =n
ldr w20, [x20] // n

// for i = 1 to n-1
mov x19, #1
outer_loop:

cmp x19, x20
bge end_outer_loop

mov x23, x19
ldr w22, [x0, x23, lsl 2] // key = array[i]

// for j = i-1; j >= 0 and array[j] > key
sub x24, x19, #1
inner_loop:
cmp x24, #0
blt end_inner_loop

ldr w25, [x0, x24, lsl 2] // array[j]
cmp w25, w22
bls end_inner_loop

// array[j+1] = array[j]
add x26, x24, #1
str w25, [x0, x26, lsl 2]
sub x24, x24, #1
b inner_loop

end_inner_loop:
add x27, x24, #1
str w22, [x0, x27, lsl 2] // array[j+1] = key

add x19, x19, #1
b outer_loop

end_outer_loop:
ldp x29, x30, [sp], #16 // function epilog
ret