Anonymous user
Averages/Arithmetic mean: Difference between revisions
→{{header|Pascal}}
Line 1,153:
Alternative version using the Math unit:
<lang pascal>Program
uses math;
const
Line 1,159:
var
i: integer;
mean: double;
begin
writeln('Calculating the arithmetic mean of a series of numbers:');
Line 1,165 ⟶ 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);
end.</lang>
| |||