Task

Write a program to find the sum of squares of a numeric vector.

The program should work on a zero-length vector (with an answer of   0).



Related task

   Mean


define s(a[], n) {
    auto i, s
 
    for (i = 0; i < n; i++) {
        s += a[i] * a[i]
    }
 
    return(s)
}