ΠΡΟΓΡΑΜΜΑ Ηλεκτρικά_είδη
! Β2009-Θ4
! Μια επιχείρηση που εμπορεύεται τηλεοράσεις διαθέτει 20 μοντέλα.
! Να γραφεί αλγόριθμος που:
! α. να διαβάζει τα ονόματα των μοντέλων και να τα αποθηκεύει
! σε μονοδιάστατο πίνακα.
! β. να διαβάζει για κάθε μοντέλο τον αριθμό των συσκευών που
!    πουλήθηκαν κάθε μήνα, για ένα έτος, και να τον αποθηκεύει
!    σε πίνακα δύο διαστάσεων, ελέγχοντας ώστε ο αριθμός αυτός
!    να μην είναι αρνητικός.
! γ. να υπολογίζει και να εμφανίζει το σύνολο των ετήσιων
!    πωλήσεων του κάθε μοντέλου.
! δ. να εμφανίζει κατά αλφαβητική σειρά τα ονόματα των μοντέλων
!    καθώς και τον ετήσιο συνολικό αριθμό των συσκευών που
!    πουλήθηκαν για κάθε μοντέλο.
ΣΤΑΘΕΡΕΣ
  Ν = 20
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: ονόματα[Ν], temp
  ΑΚΕΡΑΙΕΣ: i, j, πωλήσεις[Ν, 12], ετήσιο[Ν], temp_sum
  
  
ΑΡΧΗ
! α. να διαβάζει τα ονόματα των μοντέλων και να τα αποθηκεύει
! σε μονοδιάστατο πίνακα.
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ 'Δώσε όνομα του ', i, 'ου μοντέλου: '
    ΔΙΑΒΑΣΕ ονόματα[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ


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


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


                                               
! δ. να εμφανίζει κατά αλφαβητική σειρά τα ονόματα των μοντέλων
!    καθώς και τον ετήσιο συνολικό αριθμό των συσκευών που
!    πουλήθηκαν για κάθε μοντέλο.

  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ Ν
    ΓΙΑ j ΑΠΟ Ν ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
      ΑΝ (ονόματα[j - 1] < ονόματα[j]) ΤΟΤΕ
        temp <- ονόματα[j] 
        ονόματα[j] <- ονόματα[j - 1] 
        ονόματα[j - 1] <- temp

        temp_sum <- ετήσιο[j] 
        ετήσιο[j] <- ετήσιο[j - 1] 
        ετήσιο[j - 1] <- temp_sum
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

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


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