The Ada Program: reverse_list.adb
1 -- reverse_list.adb: get integers and reverse them (with attributes)
2
3 with Ada.Text_IO, Ada.Integer_Text_IO;
4 use Ada;
5
6 procedure Reverse_List is
7
8 subtype Index_Range is Integer range 1..10;
9 type Value_Array_Type is array (Index_Range) of Integer;
10
11 Value : Value_Array_Type;
12
13 begin
14
15 -- fill the array with values from the user
16 for Number in Index_Range loop
17 Integer_Text_IO.Get (Item => Value(Number));
18 end loop;
19
20 -- print the values in the array in reverse order
21 for Number in reverse Index_Range loop
22 Integer_Text_IO.Put (Item => Value(Number));
23 Text_IO.New_Line;
24 end loop;
25
26 end Reverse_List;