13 lines
188 B
Ada
13 lines
188 B
Ada
|
procedure Array_Collection is
|
||
|
|
|
||
|
|
type Array_Type is array (1 .. 3) of Integer;
|
||
|
|
A : Array_Type := (1, 2, 3);
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
A (1) := 3;
|
||
|
|
A (2) := 2;
|
||
|
|
A (3) := 1;
|
||
|
|
|
||
|
|
end Array_Collection;
|