Data commit

Task/Averages-Root-mean-square/Seed7/averages-root-mean-square.seed7

@@ -0,0 +1,23 @@
+$ include "seed7_05.s7i";
+  include "float.s7i";
+  include "math.s7i";
+
+const array float: numbers is [] (1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0);
+
+const func float: rms (in array float: numbers) is func
+  result
+    var float: rms is 0.0;
+  local
+    var float: number is 0.0;
+    var float: sum is 0.0;
+  begin
+    for number range numbers do
+      sum +:= number ** 2;
+    end for;
+    rms := sqrt(sum / flt(length(numbers)));
+  end func;
+
+const proc: main is func
+  begin
+    writeln(rms(numbers) digits 7);
+  end func;