Question

How to calculate the average of an array of double values in Pascal

Answer 1

Program Example;
    function Average(arr: array of double): double;
    var
        sum: double;
        i, len: integer;
    begin
        sum := 0;
        len := length(arr);
        if len > 0 then
            begin
                for i := low(arr) to high(arr) do
                    sum := sum + arr[i];
                sum := sum / len;
            end;
        Average := sum;
    end;
 
const
    arr: array [1..5] of double = (3.14, 8.0, 2.87, 5.982, 10.0);
begin
    writeln(Average(arr):7:5);
end.
 
 
 
 
(*
run:
  
5.99840
  
*)

 

70+ SQL courses for beginners and professionals

Answer 2

Program Example;
uses math;
 
const
    arr: array [1..5] of double = (3.14, 8.0, 2.87, 5.982, 10.0);
begin
    writeln(sum(arr)/length(arr):7:5);
end.
 
 
 
 
(*
run:
  
5.99840
  
*)

 

70+ SQL courses for beginners and professionals