Άσκηση : πρόγραμμα+διαδικασία

1. Γράψτε διαδικασία που δέχεται ως παράμετρο ένα
    θετικό ακέραιο Ν και :
    α) διαβάζει Ν πραγματικές τιμές,
    β) υπολογίζει τη μεγαλύτερη και τη μικρότερη τιμή
        τους.
2. Γράψτε πρόγραμμα το οποίο:
    α) διαβάζει ένα ακέραιο αριθμό Ν,
    β) αν το Ν είναι θετικό, καλεί τη διαδικασία που
        γράψατε στο ερώτημα 1, εμφανίζει τα αποτε-
        λέσματα και επανέρχεται στο βήμα 2-α).
    γ) αν το Ν είναι αρνητικό ή μηδέν, το πρόγραμμα
        ολοκληρώνεται και εμφανίζεται το μήνυμα:
              Ολοκλήρωση επεξεργασίας δεδομένων

Λύση

      ΠΡΟΓΡΑΜΜΑ ΕΠΕΞ
      ΜΕΤΑΒΛΗΤΕΣ
            ΑΚΕΡΑΙΕΣ: Ν
            ΠΡΑΓΜΑΤΙΚΕΣ: ΜΑΧ, ΜΙΝ
      ΑΡΧΗ
            ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
                  ΔΙΑΒΑΣΕ Ν
                  ΑΝ Ν > 0 ΤΟΤΕ
                       ΚΑΛΕΣΕ ΥΠΟΛ(Ν, ΜΑΧ, ΜΙΝ)
                       ΓΡΑΨΕ ΜΑΧ, ΜΙΝ
                  ΤΕΛΟΣ_ΑΝ
            ΜΕΧΡΙΣ_ΟΤΟΥ Ν <= 0
            ΓΡΑΨΕ 'Ολοκλήρωση επεξεργασίας δεδομένων'
      ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

      ΔΙΑΔΙΚΑΣΙΑ ΥΠΟΛ(Ν, ΜΑΧ, ΜΙΝ)
      ΜΕΤΑΒΛΗΤΕΣ
            ΑΚΕΡΑΙΕΣ: Ν, Κ
            ΠΡΑΓΜΑΤΙΚΕΣ: ΜΑΧ, ΜΙΝ, Χ
      ΑΡΧΗ
            ΔΙΑΒΑΣΕ Χ
            ΜΑΧ <-- Χ
            ΜΙΝ <-- Χ
            ΓΙΑ Κ ΑΠΟ 2 ΜΕΧΡΙ Ν
                    ΔΙΑΒΑΣΕ Χ
                    ΑΝ Χ > ΜΑΧ ΤΟΤΕ
                          ΜΑΧ <-- Χ
                    ΤΕΛΟΣ_ΑΝ
                    ΑΝ Χ < ΜΙΝ ΤΟΤΕ
                          ΜΙΝ <-- Χ
                    ΤΕΛΟΣ_ΑΝ
            ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
       ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ