-- sl - Info 1 (autip), Vorlesungsbeispiel Einlesen von Zahlen
-- und Ausgabe in umgekehrter Reihenfolge
-- 23.11.2005
-- Idee: lese Zahlen in ein Array ein und gib dieses Array rückwärts wieder aus


with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_io, ada.integer_text_io;

procedure Gib5zahlenaus is
   
   N : Natural :=5;
   type Vektor is array (1..N) of integer; -- sonst Zuweisungen der Art feld1:=feld2 nicht möglich wären
   Feld : Vektor;                          -- (gilt nicht für alle Ada Compiler ...)

   begin
      for I in 1..N loop
         Put(I'Img & ". Zahl: "); -- i'img liefert die Zeichenkette der Zahl i
         -- der Operator & verknüpft Zeichenketten
         Get(feld(I));
      end loop;
      
      for I in reverse 1..N loop
         Put_Line(I'Img & ". Zahl ist " & Feld(I)'Img);
         -- Put_line gibt eine Zeile mit Zeilenvorschub aus (gibt es nur für Zeichenketten!)
      end loop;

end gib5zahlenaus;