! =========================================================================================
! ΕΣΠΕΡΙΝΟ ΙΟΥΝΙΟΣ 2002 - ΘΕΜΑ 2
! =========================================================================================
! Ο μονοδιάστατος αριθμητικός πίνακας Table έχει τα ακόλουθα στοιχεία :
!
!      ---------------------------------------------
!       1η θέση  2η θέση  3η θέση  4η θέση  5η θέση
!      ---------------------------------------------
!          43       72       -4       63       56
!      ---------------------------------------------
! Δίνεται το παρακάτω τμήμα αλγορίθμου :
!
!    Για  Ι από 2 μέχρι 5
!       Για J από 5 μέχρι Ι με_βήμα -1
!          Αν Table[J-1] < Table[J] τότε
!             Αντιμετάθεσε Table[J-1], Table[J]
!          Τέλος_αν                                  
!       Τέλος_επανάληψης
!    Τέλος_επανάληψης
!
! Να μεταφερθεί στο τετράδιό σας ο πίνακας και να συμπληρωθεί για όλες τις τιμές του J,
! που αντιστοιχούν σε I = 2 και Ι = 3.
!
! =========================================================================================

ΠΡΟΓΡΑΜΜΑ ES_2002_06_2
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i , j , Table[5], temp
ΑΡΧΗ
  Table[1] <-- 43
  Table[2] <-- 72
  Table[3] <-- -4
  Table[4] <-- 63
  Table[5] <-- 56
  ΓΡΑΨΕ '==============================='
  ΓΡΑΨΕ '|  i    j   |     Πίνακας     |'
  ΓΡΑΨΕ '==============================='
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 3
    ΓΙΑ j ΑΠΟ 5 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
      ΑΝ Table[j-1] < Table[j] ΤΟΤΕ
        temp <-- Table[j-1]
        Table[j-1] <-- Table[j]
        Table[j] <-- temp
      ΤΕΛΟΣ_ΑΝ
      ΓΡΑΨΕ '| ' , i , '  ' , j , '  |' , Table[1] ,  Table[2]  , Table[3]  , Table[4] , Table[5] , ' |'
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ '===================================='
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ