! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΝΙΟΣ 2001 - ΘΕΜΑ 3
! ===============================================================================================
! Δίνεται πίνακας Π δύο διαστάσεων, που τα στοιχεία του είναι ακέραιοι αριθμοί με Ν γραμμές και
! Μ στήλες.
! Να αναπτύξετε αλγόριθμο που να υπολογίζει το ελάχιστο στοιχείο του πίνακα.
! ===============================================================================================

ΠΡΟΓΡΑΜΜΑ HM_2001_06_3
ΣΤΑΘΕΡΕΣ
  Ν = 5
  Μ = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ : i ,j
  ΠΡΑΓΜΑΤΙΚΕΣ: Π[Ν,Μ] , min
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ M
      ΓΡΑΨΕ 'Δώσε αριθμό για το κελι',i,',',j
      ΔΙΑΒΑΣΕ Π[i,j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  min <-- Π[1,1]
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ M
      ΑΝ Π[i,j] < min ΤΟΤΕ
        MIN <-- Π[i,j]
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Το ελάχιστο στοιχείο του πίνακα είναι ο αριθμός',min
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ