Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
Line 911: | Line 911: | ||
InOut.WriteLn |
InOut.WriteLn |
||
END Avg;</lang> |
END Avg;</lang> |
||
OR |
|||
<lang modula2>PROCEDURE Average (Data : ARRAY OF REAL; Samples : CARDINAL) : REAL; |
|||
(* Calculate the average over 'Samples' values, stored in array 'Data'. *) |
|||
VAR sum : REAL; |
|||
n : CARDINAL; |
|||
BEGIN |
|||
sum := 0.0; |
|||
FOR n := 0 TO Samples - 1 DO |
|||
sum := sum + Data [n] |
|||
END; |
|||
RETURN sum / FLOAT(Samples) |
|||
END Average;</lang> |
|||
=={{header|Nial}}== |
=={{header|Nial}}== |