ΠΡΟΓΡΑΜΜΑ ΜΠΑΣΚΕΤ
! Ε2003-Θ4
! Κατά τη διάρκεια πρωταθλήματος μπάσκετ μια ομάδα που αποτελείται
! από δώδεκα (12) παίκτες έδωσε είκοσι (20) αγώνες, στους οποίους
! συμμετείχαν όλοι οι παίκτες.
! Να αναπτύξετε στο τετράδιό σας αλγόριθμο ο οποίος:
! α. Να διαβάζει τα ονόματα των παικτών και να τα αποθηκεύει σε
!    μονοδιάστατο πίνακα.
! β. Να διαβάζει τους πόντους που σημείωσε κάθε παίκτης σε κάθε
!    αγώνα και να τους αποθηκεύει σε πίνακα δύο διαστάσεων.
! γ. Να υπολογίζει για κάθε παίκτη το συνολικό αριθμό πόντων του
!    σε όλους τους αγώνες και το μέσο όρο πόντων ανά αγώνα.
! δ. Να εκτυπώνει τα ονόματα των παικτών της ομάδας και το μέσο
!    όρο πόντων του κάθε παίκτη ταξινομημένα με βάση το μέσο όρο
!    τους κατά φθίνουσα σειρά.
! Παρατήρηση:   Σε περίπτωση ισοβαθμίας δεν μας ενδιαφέρει η
! σχετική σειρά των παικτών.


ΣΤΑΘΕΡΕΣ
  Ν = 12         ! 5
  ΑΓΩΝΕΣ = 20    ! 3
    ! αλλάξτε τα σε πιο μικρές τιμές για να τρέξετε το πρόγραμμα
    ! στο Διερμηνευτή ...

ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: ονόματα[Ν], temp_ON
  ΑΚΕΡΑΙΕΣ: i, j, πόντοι[Ν, ΑΓΩΝΕΣ], sum
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ[Ν], temp
  
ΑΡΧΗ
! α. Να διαβάζει τα ονόματα των παικτών και να τα αποθηκεύει σε
!    μονοδιάστατο πίνακα.
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ 'Δώσε όνομα του ', i, 'ου παίχτη: '
    ΔΙΑΒΑΣΕ ονόματα[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ


! β. Να διαβάζει τους πόντους που σημείωσε κάθε παίκτης σε κάθε
!    αγώνα και να τους αποθηκεύει σε πίνακα δύο διαστάσεων.
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ i, ονόματα[i] 
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΑΓΩΝΕΣ
      ΓΡΑΨΕ 'Δώσε πόντους ', j, 'ου αγώνα: '
      ΔΙΑΒΑΣΕ πόντοι[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ


! γ. Να υπολογίζει για κάθε παίκτη το συνολικό αριθμό πόντων του
!    σε όλους τους αγώνες και το μέσο όρο πόντων ανά αγώνα.
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    sum <- 0
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΑΓΩΝΕΣ
      sum <- sum + πόντοι[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΜΟ[i] <- sum/ ΑΓΩΝΕΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ



                                
! δ. Να εκτυπώνει τα ονόματα των παικτών της ομάδας και το μέσο
!    όρο πόντων του κάθε παίκτη ταξινομημένα με βάση το μέσο όρο
!    τους κατά φθίνουσα σειρά.
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ Ν
    ΓΙΑ j ΑΠΟ Ν ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
      ΑΝ (ΜΟ[j - 1] < ΜΟ[j]) ΤΟΤΕ
        temp <- ΜΟ[j] 
        ΜΟ[j] <- ΜΟ[j - 1] 
        ΜΟ[j - 1] <- temp

        temp_ON <- ονόματα[j] 
        ονόματα[j] <- ονόματα[j - 1] 
        ονόματα[j - 1] <- temp_ON
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ ονόματα[i], ΜΟ[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ


ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ