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

ΠΡΟΓΡΑΜΜΑ HM_2001_07_4
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i ,j
  ΠΡΑΓΜΑΤΙΚΕΣ: temp, max[10], x[10,6]
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 6
      ΓΡΑΨΕ 'Δώσε την επίδοση του αθλητή ' ,i, ' στην προσπάθεια ',j
      ΔΙΑΒΑΣΕ X[i,j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    max[i] <-- max[1]
    ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 6
      ΑΝ x[i,j] > max[i] ΤΟΤΕ
        max[i] <-- x[i,j]
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10
    ΓΙΑ j ΑΠΟ 10 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
      ΑΝ max[j-1] < max[j] ΤΟΤΕ
        temp <-- max[j-1]
        max[j-1] <-- max[j]
        max[j] <-- temp
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Ο αθλητής που πήρε το χάλκινο μετάλλειο έριξε ', max[3], 'm.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ