Anonymous user
Averages/Arithmetic mean: Difference between revisions
→{{header|Modula-2}}
Line 911:
InOut.WriteLn
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}}==
| |||