Anonymous user
Averages/Arithmetic mean: Difference between revisions
→{{header|Pascal}}
(add Pascal example) |
|||
Line 1,150:
Mean: 3.83333333
</pre>
Alternative version using the Math unit:
<lang pascal>Program Mean;
uses math;
const
vector: array [3..8] of double = (3.0, 1.0, 4.0, 1.0, 5.0, 9.0);
var
i: integer;
begin
writeln('Calculating the arithmetic mean of a series of numbers:');
write('Numbers: [ ');
for i := low(vector) to high(vector) do
write (vector[i]:3:1, ' ');
writeln (']');
writeln('Mean: ', sum(vector):10:8);
end.</lang>
=={{header|Perl}}==
| |||