Task

Compute the sum and product of an array of integers.




array = $ ! 1, 2, ..., LEN(array)
 
sum = SUM(array)
 
product = 1 ! no built-in product function in HicEst
DO i = 1, LEN(array)
  product = product * array(i)
ENDDO
 
WRITE(ClipBoard, Name) n, sum, product ! n=100; sum=5050; product=9.33262154E157;