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


 
declare A(10) float initial (10, 9, 8, 7, 6, 5, 4, 3, 2, 1);
 
put (sum(A**2));
 