Arrays

Introduction

with Ada.Text_IO; use Ada.Text_IO; procedure Exercise is type Numbers is array(5 .. 25) of Integer; begin end Exercise;

 

First

with Ada.Text_IO;
use Ada.Text_IO;

procedure Exercise is
   type Numbers is array(5 .. 25) of Integer;

begin
   Put_Line("Number = " & Integer'image(Numbers'First));
end Exercise;

This would produce:

Number =  5

 

Last

with Ada.Text_IO;
use Ada.Text_IO;

procedure Exercise is
   type Numbers is array(5 .. 25) of Integer;

begin
   Put_Line("Number = " & Integer'image(Numbers'Last));
end Exercise;

This would produce:

Number =  25

 

Length

with Ada.Text_IO;
use Ada.Text_IO;

procedure Exercise is
   type Numbers is array(5 .. 25) of Integer;

begin
   Put_Line("Length = " & Integer'image(Numbers'Length));
end Exercise;

This would produce:

Number =  21