Question

How to use array in Pascal

Answer 1

Program Example;

Function Sum (arr : Array of integer) : integer;  
    Var i : longint;  
        tmp : integer;  
    begin  
    tmp := arr[0];  
    For i := 1 to High(arr) do 
        tmp := tmp + arr[i];  
    Sum := tmp;  
end;

Var  
  arr : array[0..7] of integer = (1, 2, 3, 4, 5, 6, 7, 8);
  i : integer;
begin
  For i := 0 to High(arr) do 
    begin
        Write(arr[i], ' ');
    end;
    
  Writeln();
    
  Writeln(sum(arr));
end.




(*
run:

1 2 3 4 5 6 7 8 
36

*)

 

70+ SQL courses for beginners and professionals