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

ΠΡΟΓΡΑΜΜΑ ESP_JUL_2007_04
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i , j  , n
  ΠΡΑΓΜΑΤΙΚΕΣ: θ[7,24] , μεση[7] , max , s
  ΧΑΡΑΚΤΗΡΕΣ: day[7] , top
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 7
    ΓΡΑΨΕ 'Δώσε το όνομα της ' , i ,'ημέρας.'
    ΔΙΑΒΑΣΕ day[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 7
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 24
      ΓΡΑΨΕ 'Δώσε τη θερμοκρασία της' , day[i] ,'την ώρα' , j
      ΔΙΑΒΑΣΕ θ[i,j]
      ΟΣΟ θ[i,j] < -20 ή θ[i,j] > 50 ΕΠΑΝΑΛΑΒΕ
        ΓΡΑΨΕ 'Λάθος. Ξαναδώσε'
        ΔΙΑΒΑΣΕ θ[i,j]
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 7
    s <-- 0
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 24
      s <-- s + θ[i,j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    μεση[i] <-- s/24
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  max <-- -21        ! Θα μπορούσε να μεί και μία από τις τιμές που ήδη έχουμε π.χ. max <-- μεση[1]
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 7
    ΑΝ μεση[i] > max ΤΟΤΕ
      max <-- μεση[i]
      top <-- day[i]
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Η μέρα με τη μέγιστη μέση θερμοκρασία ήταν για αυτήν την εβδομάδα' , top

  n <-- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 7
    ΑΝ μεση[i] > 20 ΤΟΤΕ
      n <-- n + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ n , 'μέρες αυτή την εβδομάδα είχαμε θερμοκρασία πάνω από 20 βαθμούς.'

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