Source code in the rapira programming language

fun sumOfArr(arr)
  sum := 0
  for N from 1 to #arr do
    sum := sum + arr[N]
  od
  return sum
end

fun productOfArr(arr)
  product := arr[1]
  for N from 2 to #arr do
    product := product * arr[N]
  od
  return product
end