Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
({{header|Liberty BASIC}}) |
|||
| Line 899: | Line 899: | ||
print (mean #(3, 1, 4, 1, 5, 9))</lang> |
print (mean #(3, 1, 4, 1, 5, 9))</lang> |
||
=={{header|Modula-2}}== |
|||
<lang modula2>PROCEDURE Avg; |
|||
VAR avg : REAL; |
|||
BEGIN |
|||
avg := sx / n; |
|||
InOut.WriteString ("Average = "); |
|||
InOut.WriteReal (avg, 8, 2); |
|||
InOut.WriteLn |
|||
END Avg;</lang> |
|||
=={{header|Nial}}== |
=={{header|Nial}}== |
||