4 with Loop_Optimization11_Pkg; use Loop_Optimization11_Pkg;
6 procedure Loop_Optimization11 is
7 Arr : array (Prot, Mem) of Integer := (others => (others => 0));
9 Put_Line (Img (0) & " ");
10 for I in Arr'Range (1) loop
11 for J in Arr'Range (2) loop
13 Elem : Integer renames Arr (I, J);
15 Put_Line (Img (Elem));