Lektion den 26/9

Uppgift: Lös in fem heltal, summera dessa och skriv ut summan på skärmen. Lös med underprogram och fält.
Körex:
Mata in fem heltal 1 2 3 4 5
Summan blev 15
(ska vara 3 rader under begin)
array i detta fall: Ska innehålla 5 siffror som alla är Integer
1..5 --> Heltal'Last plockar bara in femman
1..5 --> Heltal'Range plockar in hela satsen
-------------------------------------------------------------------------------------
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_Io;

procedure Fem_Heltal is

type Five_Int_Type is
     array (1..5) of Integer;

procedure Las(Heltal: Five_Int_Type) is

begin
Put("Mata in fem heltal: ");
for I in 1..5 loop
Get(Heltal(I));

end loop;
end Las;

Summa: Integer;
Heltal: Five_Int_Type;

begin
Las(Heltal);
Summera(Heltal, Summa);
Skriv_Ut(Summa);

end Fem_Heltal;