ΠΡΟΓΡΑΜΜΑ ΆΣΚΗΣΗ_4_5_2
ΣΤΑΘΕΡΕΣ
  ΓΡΑΜΜΕΣ = 2
  ΣΤΗΛΕΣ = 3
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Α[ΓΡΑΜΜΕΣ, ΣΤΗΛΕΣ], ΑΘΡ_ΓΡ[ΓΡΑΜΜΕΣ], ΑΘΡ_ΣΤ[ΣΤΗΛΕΣ], i, j, sum, Max, Min, μ, x, gr, Κ, st
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΣΤΗΛΕΣ
      ΓΡΑΨΕ "Δώστε το στοιχείο της ",i,"ης γραμμής & ",j,"ης στήλης : "
      ΔΙΑΒΑΣΕ Α[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΣΤΗΛΕΣ
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
      ΓΡΑΨΕ "Δώστε το στοιχείο της ",j,"ης στήλης & ",i,"ης γραμμής : "
      ΔΙΑΒΑΣΕ Α[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΣΤΗΛΕΣ
      ΓΡΑΨΕ Α[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΣΤΗΛΕΣ
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
      ΓΡΑΨΕ Α[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
    sum <- 0
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΣΤΗΛΕΣ
      sum <- sum + Α[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ "Άθροισμα ", i, "ης γραμμής = ", sum
    ΑΘΡ_ΓΡ[i] <- sum
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΣΤΗΛΕΣ
    sum <- 0
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
      sum <- sum + Α[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ "Άθροισμα ", j, "ης στήλης = ", sum
    ΑΘΡ_ΣΤ[j] <- sum
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  sum <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΣΤΗΛΕΣ
      sum <- sum + Α[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "Άθροισμα όλων των στοιχείων = ", sum
  ΜΟ <- sum/(ΓΡΑΜΜΕΣ*ΣΤΗΛΕΣ)
  ΓΡΑΨΕ "Μέσος Όρος = ", ΜΟ
  Max <- Α[1, 3] 
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
    ΑΝ Α[i, 3] > Max ΤΟΤΕ
      Max <- Α[i, 3] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "Ο μεγαλύτερος της 3ης στήλης = ", Max
  Min <- Α[2, 1] 
  ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ ΣΤΗΛΕΣ
    ΑΝ Α[2, j] < Min ΤΟΤΕ
      Min <- Α[2, j] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "Ο μικρότερος της 2ης γραμμής = ", Min
  Min <- Α[1, 1] 
  Max <- Α[1, 1] 
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΣΤΗΛΕΣ
      ΑΝ Α[i, j] < Min ΤΟΤΕ
        Min <- Α[i, j] 
      ΤΕΛΟΣ_ΑΝ
      ΑΝ Α[i, j] > Max ΤΟΤΕ
        Max <- Α[i, j] 
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  μ <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΣΤΗΛΕΣ
      ΑΝ Α[i, j] > ΜΟ ΤΟΤΕ
        μ <- μ + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "Πλήθος: ", μ
  ΓΡΑΨΕ "Δώσε ακέραιο για αναζήτηση : "
  ΔΙΑΒΑΣΕ x
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΣΤΗΛΕΣ
      ΑΝ x = Α[i, j] ΤΟΤΕ
        ΓΡΑΨΕ "Βρέθηκε στη θέση = ", i, j
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ gr ΑΠΟ 1 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
    ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ ΣΤΗΛΕΣ
      ΓΙΑ j ΑΠΟ ΣΤΗΛΕΣ ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
        ΑΝ Α[gr, j] > Α[gr, j - 1] ΤΟΤΕ
          Κ <- Α[gr, j] 
          Α[gr, j] <- Α[gr, j - 1] 
          Α[gr, j - 1] <- Κ
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ st ΑΠΟ 1 ΜΕΧΡΙ ΣΤΗΛΕΣ
    ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ ΓΡΑΜΜΕΣ
      ΓΙΑ j ΑΠΟ ΓΡΑΜΜΕΣ ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
        ΑΝ Α[j, st] < Α[j - 1, st] ΤΟΤΕ
          Κ <- Α[j, st] 
          Α[j, st] <- Α[j - 1, st] 
          Α[j - 1, st] <- Κ
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ