! ===============================================================================================
! ΕΣΠΕΡΙΝΟ - ΙΟΥΝΙΟΣ 2004 - ΘΕΜΑ 3
! ===============================================================================================
! Σε έναν αγώνα δισκοβολίας συμμετέχουν 20 αθλητές. Κάθε αθλητής έκανε μόνο μία έγκυρη ρίψη που
! καταχωρείται ως επίδοση του αθλητή και εκφράζεται σε μέτρα.
! Να αναπτύξετε αλγόριθμο που
!  α. να διαβάζει για κάθε αθλητή το όνομα καιτην επίδοση του,
!  β. να ταξινομεί τους αθλητές ως προς την επίδοση τους,
!  γ. να εμφανίζει τα ονόματα και τις επιδόσεις των τριών πρώτων αθλητών, αρχίζοντας από εκείνον
!     με την καλύτερη επίδοση,
!  δ. να εμφανίζει τα ονόματα και τις επιδόσεις των πέντε τελευταίων αθλητών, αρχίζοντας από
!     εκείνο με την καλύτερη επίδοση.
!
! Σημείωση: Να θεωρήσετε ότι δεν υπάρχουν αθλητές με την ίδια ακριβώς επίδοση.
! ===============================================================================================

ΠΡΟΓΡΑΜΜΑ ΕΣ_2004_06_3
ΜΕΤΑΒΛΗΤΕΣ                    
  ΑΚΕΡΑΙΕΣ : i , j
  ΠΡΑΓΜΑΤΙΚΕΣ : y[20] , temp
  ΧΑΡΑΚΤΗΡΕΣ : name[20] , temp1
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
    ΓΡΑΨΕ 'Δώσε το όνομα του αθλητή' , i
    ΔΙΑΒΑΣΕ name[i]
    ΓΡΑΨΕ 'Δώσε την επίδοσή του'
    ΔΙΑΒΑΣΕ y[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 20
    ΓΙΑ j ΑΠΟ 20 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
      ΑΝ y[j-1] < y[j] ΤΟΤΕ
        temp <-- y[j-1]
        y[j-1] <-- y[j]
        y[j] <-- temp
        temp1 <-- name[j-1]
        name[j-1] <-- name[j]
        name[j] <-- temp1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Οι τρεις καλύτεροι αθλητές είναι :'
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
    ΓΡΑΨΕ i , 'ος ' , name[i] , 'με επίδοση' , y[i] , 'μέτρα'
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Οι πέντε τελευταίοι αθλητές είναι :'
  ΓΙΑ i ΑΠΟ 16 ΜΕΧΡΙ 20
  ΓΡΑΨΕ i , 'ος ' , name[i] , 'με επίδοση' , y[i] , 'μέτρα'
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ