Task

Compute the sum and product of an array of integers.




dim array(100)
for i = 1 To 100
    array(i) = rnd(0) * 100
next i
 
product = 1
for i = 0 To 19
    sum     = (sum + array(i))
    product = (product * array(i))
next i
 
Print "    Sum is ";sum
Print "Product is ";product