12 lines
159 B
Ada
12 lines
159 B
Ada
|
procedure Array_Collection is
|
||
|
|
|
||
|
|
A : array (-3 .. -1) of Integer := (1, 2, 3);
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
A (-3) := 3;
|
||
|
|
A (-2) := 2;
|
||
|
|
A (-1) := 1;
|
||
|
|
|
||
|
|
end Array_Collection;
|