! ============================================================================
! Στο διαγωνισμό του ΑΣΕΠ για την ειδικότητα των φυσικών έλαβαν μέρος
! 500 άτομα και εξετάστηκαν στο γνωστικό τους αντικείμενο με βαθμό
! από 1 έως 100 και στα παιδαγωγικά με βαθμό από 1 έως 100 επίσης.
! Ο τελικός βαθμός προκύπτει κατά 70 % από το βαθμό στο γνωστικό αντικείμενο
! και κατά 30 % από το βαθμό στα παιδαγωγικά.
! Πρόκειται να προσληφθούν 150 άτομα.
! Η πρόσληψη θα γίνει μόνο αν ο τελικός βαθμός είναι πάνω από 60.
! Σε περίπτωση που κάποιοι διαγωνιζόμενοι ισοβαθμούν με τον τελευταίο
! προσλαμβάνονται και αυτοί.
! Να γραφεί πρόγραμμα το οποίο :
!  α) ζητά και καταχωρεί σε κατάλληλους πίνακες τα ονόματα και
!     τις βαθμολογίες των διαγωνισθέντων.
!  β) υπολογίζει και καταχωρεί σε πίνακα την τελική βαθμολογία κάθε ενός.
!  γ) υπολογίζει και εμφανίζει πόσοι προσλαμβάνονται.
!     Σε περίπτωση που υπάρξουν κενές θέσεις εμφανίζει κατάλληλο μήνυμα
!     και τον αριθμό των κενών θέσεων.
!  δ) Εμφανίζει τον κατάλογο αυτών που θα προσληφθούν κατά σειρά βαθμολογίας
!     από τον καλύτερο στο χειρότερο.
! ============================================================================

ΠΡΟΓΡΑΜΜΑ ΑΣΕΠ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i ,j , Ν
  ΠΡΑΓΜΑΤΙΚΕΣ: Β[500,2] , ΤΒ[500], temp1
  ΧΑΡΑΚΤΗΡΕΣ: name[500] , temp2
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 500
    ΓΡΑΨΕ 'Δώσε το όνομα του ',i
    ΔΙΑΒΑΣΕ name[i]
    ΓΡΑΨΕ 'Δώσε και τους βαθμούς του'
    ΔΙΑΒΑΣΕ Β[i,1],Β[i,2]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 500
    ΤΒ[i] <-- Β[i,1]*70/100 + Β[i,2]*30/100  ! ΤΕΛΙΚΟΣ ΒΑΘΜΟΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 500
    ΓΙΑ j ΑΠΟ 500 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
      ΑΝ ΤΒ[j-1] < ΤΒ[j] ΤΟΤΕ
        temp1 <-- ΤΒ[j-1]
        ΤΒ[j-1] <-- ΤΒ[j]
        ΤΒ[j] <-- temp1
        temp2 <-- name[j-1]
        name[j-1] <-- name[j]
        name[j] <-- temp2
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  Ν <-- 1
  ΟΣΟ ΤΒ[Ν] > 60 ΕΠΑΝΑΛΑΒΕ
    Ν <-- Ν + 1
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  Ν <-- Ν -1
  ΑΝ Ν <= 150 ΤΟΤΕ
    ΓΡΑΨΕ 'Θα προσληφθούν', Ν,'άτομα και θα μείνουν ',150-Ν,'κενές θέσεις'
  ΑΛΛΙΩΣ
    Ν <-- 150
    ΟΣΟ ΤΒ[Ν+1] = ΤΒ[150] ΕΠΑΝΑΛΑΒΕ
      Ν <-- Ν + 1
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Θα προληφθούν',Ν,'άτομα'
    ΓΡΑΨΕ 'ΠΡΟΣΛΑΜΒΑΝΟΝΤΑΙ ΟΙ ΕΞΗΣ'
    ΓΡΑΨΕ '========================'
    ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ Ν
      ΓΡΑΨΕ name[i]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ