! =======================================================================
! 1)Να γίνει πρόγραμμα που να ζητάει το μέγεθος ενός δυσδιάστατου πίνακα (π.χ 5x7)
! 2)Να διαβάζει τον πίνακα.
! 3)Να εμφανίζει τον πίνακα που δημιουργήσαμε.
! 4)Να βρίσκει το ΜΑΧ στοιχείο του πίνακα και να το εμφανίζει
! 5)Να ελέγχει αν ο μέσος όρος των στοιχείων του πίνακα είναι πάνω 10
! ΣΗΜΕΙΩΣΗ:
! - Το διάβασμα των τιμών του πίνακα να γίνεται με ΔΙΑΔΙΚΑΣΙΑ
! - Η εύρεση του ΜΑΧ στοιχείου να γίνεται με ΔΙΑΔΙΚΑΣΙΑ
! =======================================================================
ΠΡΟΓΡΑΜΜΑ ΣΩΤ
!SOS ΓΙΑ ΑΓΝΩΣΤΟ ΜΕΓΕΘΟΣ ΠΙΝΑΚΑ ΠΡΕΠΕΙ ΝΑ ΔΕΣΜΕΥΕΤΕ ΑΡΚΕΤΟΣ ΧΩΡΟΣ
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ:ΠΙΝ[100,100],ΜΑΧ1,ΜΟ,ΑΘΡ
ΑΚΕΡΑΙΕΣ: Λ,Α,Μ,Β
ΑΡΧΗ
ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ ΜΕΓΕΘΟΣ ΤΟΥ ΠΙΝΑΚΑ Π.Χ 5Χ7'
ΔΙΑΒΑΣΕ Λ,Μ
ΚΑΛΕΣΕ ΔΗΜΙΟΥΡΓΙΑ_ΠΙΝΑΚΑ_Λ_Μ_ΘΕΣΕΩΝ(ΠΙΝ,Λ,Μ)
ΓΡΑΨΕ 'TΑ ΣΤΟΙΧΕΙΑ ΤΟΥ ΠΙΝΑΚΑ ΕΙΝΑΙ ΤΑ ΕΞΕΙΣ:'
ΓΙΑ Α ΑΠΟ 1 ΜΕΧΡΙ Λ
ΓΙΑ Β ΑΠΟ 1 ΜΕΧΡΙ Μ
ΓΡΑΨΕ ΠΙΝ[Α,Β]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ ΕΥΡΕΣΗ_ΜΑΧ_ΣΤΟΙΧΕΙΟΥ(ΠΙΝ,ΜΑΧ1)
ΓΡΑΨΕ 'TO MAX ΣΤΟΙΧΕΙΟ ΤΟΥ ΠΙΝΑΚΑ ΕΙΝΑΙ:',ΜΑΧ1
ΑΘΡ <-- 0
ΓΙΑ Α ΑΠΟ 1 ΜΕΧΡΙ Λ
ΓΙΑ Β ΑΠΟ 1 ΜΕΧΡΙ Μ
ΑΘΡ <-- ΑΘΡ+ΠΙΝ[Α,Β]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΟ <-- ΑΘΡ/(Λ*Μ)
ΑΝ ΜΟ>10 ΤΟΤΕ
ΓΡΑΨΕ ' ο μέσος όρος των στοιχείων του πίνακα είναι πάνω 10'
ΑΛΛΙΩΣ
ΓΡΑΨΕ ' ο μέσος όρος των στοιχείων του πίνακα ΔΕΝ είναι πάνω 10 '
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΣΩΤ
!.....................................................................
ΔΙΑΔΙΚΑΣΙΑ ΔΗΜΙΟΥΡΓΙΑ_ΠΙΝΑΚΑ_Λ_Μ_ΘΕΣΕΩΝ(Χ,Κ,Φ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι,Κ,Φ,J
ΠΡΑΓΜΑΤΙΚΕΣ:Χ[100,100]
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Κ
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ Φ
ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ ', Ι , ':', J ,' ΣΤΟΙΧΕΙΟ'
ΔΙΑΒΑΣΕ Χ[Ι,J]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!........................................................................
ΔΙΑΔΙΚΑΣΙΑ ΕΥΡΕΣΗ_ΜΑΧ_ΣΤΟΙΧΕΙΟΥ(ΕΕ,ΜΑΧ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Γ,Δ, Λ, Μ
ΠΡΑΓΜΑΤΙΚΕΣ: ΜΑΧ,ΕΕ[100,100]
ΑΡΧΗ
ΜΑΧ <-- ΕΕ[1,1]
ΓΙΑ Γ ΑΠΟ 1 ΜΕΧΡΙ Λ
ΓΙΑ Δ ΑΠΟ 1 ΜΕΧΡΙ Μ
ΑΝ ΕΕ[Γ,Δ]>ΜΑΧ ΤΟΤΕ
ΜΑΧ <-- ΕΕ[Γ,Δ]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!........................................................................