Άσκηση 4.

Να αναπτύξετε υποπρόγραμμα που να δέχεται έναν πίνακα 100x40 και έναν αριθμό που εκφράζει κάποια γραμμή του πίνακα και να επιστρέφει το μέσο όρο και το μέγιστο στοιχείο της γραμμής αυτής.



Λύση
ΔΙΑΔΙΚΑΣΙΑ Υπολογισμοί (ΠΙΝ, γραμμή, μο, max)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: γραμμή, j
ΠΡΑΓΜΑΤΙΚΈΣ: ΠΙΝ[100, 40], μο, max, S
ΑΡΧΗ
max ‹― ΠΙΝ[γραμμή, 1]
ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 40
ΑΝ max > ΠΙΝ[γραμμή, j] ΤΟΤΕ
max ‹― ΠΙΝ[γραμμή, j]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
S ‹― 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 40
S ‹― S + ΠΙΝ[γραμμή, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
μο ‹― S / 40
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ