Same basic way with any ST. Your needs for syntax will vary per platform.
i := 0; // Set pointer to zero
Total := 0; //Set total to zero
ArraySize := Size(Array) - 1; //Get the size of the array so we don't overstep boundaries
While i < ArraySize
Total += Array;
i := i + 1;
End_While;