Averages/Arithmetic mean: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,153: / Line 1,153: @@
 Alternative version using the Math unit:
-<lang pascal>Program Mean;
+<lang pascal>Program DoMean;
 uses math;
 const
@@ Line 1,159: / Line 1,159: @@
 var
   i: integer;
+  mean: double;
 begin
   writeln('Calculating the arithmetic mean of a series of numbers:');
@@ Line 1,165: / Line 1,166: @@
     write (vector[i]:3:1, ' ');
   writeln (']');
+  mean := 0;
-  writeln('Mean: ', sum(vector):10:8);
+  if length(vector) > 0 then
+    mean := sum(vector)/length(vector);
+  writeln('Mean: ', mean:10:8);
 end.</lang>