Question

How to create initialize and print integer array in Pascal

Answer 1

program MyProgram; 
var
    arr: array [1..10] of integer;  
    i: integer;

begin
    for i := 1 to 10 do
        arr[ i ] := i * 3;  

    for i:= 1 to 10 do
        writeln('Arr[', i, '] = ', arr[i]);
end.




(*
run:
    
Arr[1] = 3
Arr[2] = 6
Arr[3] = 9
Arr[4] = 12
Arr[5] = 15
Arr[6] = 18
Arr[7] = 21
Arr[8] = 24
Arr[9] = 27
Arr[10] = 30
    
*)

 

70+ SQL courses for beginners and professionals