將陣列作為子程式引數傳遞

Pascal 允許將陣列作為子程式引數傳遞。以下函式將以一種陣列作為自變數，並按如下方法返回透過陣列傳遞的數字的平均值 −

program arrayToFunction;
const
   size = 5;
type
   a = array [1..size] of integer;
var
   balance:  a = (1000, 2, 3, 17, 50);
   average: real;  

function avg( var arr: a) : real;
var
   i :1..size;
   sum: integer;

begin
   sum := 0;
   for i := 1 to size do
      sum := sum + arr[i];
   avg := sum / size;
end;

begin  
   (*  Passing the array to the function  *)
   average := avg( balance ) ;
   
   (* output the returned value *)
   writeln( 'Average value is: ', average:7:2);
end.

當編譯並執行以上程式碼時，將產生以下結果 −

Average value is: 214.40