! = ΤΕΛ09 =================================================================
! Να γραφεί πρόγραμμα το οποίο :
!  · να δέχεται και καταχωρεί τα στοιχεία ενός δισδιάστατου πίνακα ακεραίων
!    Α[50,40]
!  · να τον ταξινομεί κατά αύξουσα σειρά, συνολικά. Μεταθέτει δηλαδή τα
!    στοιχεία του έτσι ώστε στο τέλος να ισχύει :
!    Α[1,1] <= Α[2,1] <= .... <= Α[1,2] <= Α[2,2] <= Α[3,2] ... <= Α[50,40]
!
! ΥΠΟΔΕΙΞΗ :
!  · Δημιουργήστε έναν μονοδιάστατο πίνακα ακεραίων Β[2000] ο οποίος θα
!    περιέχει τα στοιχεία του πίνακα Α.
!  · Ταξινομήστε τον πίνακα Β.
!  · Μεταφέρετε κατάλληλα τα στοιχεία του πίνακα Β στον πίνακα Α.
! =========================================================================
!
ΠΡΟΓΡΑΜΜΑ TEL_09
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ : i , j , k
  ΠΡΑΓΜΑΤΙΚΕΣ : a[50,40] , b[2000] , temp
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 40
      ΔΙΑΒΑΣΕ a[i,j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

! ΜΕΤΑΦΟΡΑ ΤΩΝ ΔΕΔΟΜΕΝΩΝ ΤΟΥ ΠΙΝΑΚΑ a[50,40] ΣΤΟ ΜΟΝΟΔΙΑΣΤΑΤΟ b[2000]
k <-- 1
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 40
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
      b[k] <-- a[i,j]
      k <-- k +1
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

! ΑΥΞΟΥΣΑ ΤΑΞΙΝΟΜΗΣΗ ΤΟΥ ΠΙΝΑΚΑ b[2000]
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 2000
    ΓΙΑ j ΑΠΟ 2000 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
      ΑΝ b[j-1] > b[j] ΤΟΤΕ
        temp <-- b[j-1]
        b[j-1] <-- b[j]
        b[j] <-- temp
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

! ΜΕΤΑΦΟΡΑ ΤΩΝ ΔΕΔΟΜΕΝΩΝ ΤΟΥ ΜΟΝΟΔΙΑΣΤΑΤΟΥ ΠΙΝΑΚΑ b[2000] ΣΤΟΝ a[50,40]
k <-- 1
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 40
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
      a[i,j] <-- b[k]
      k <-- k +1
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

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