! ===================================================================================
! Να γραφεί πρόγραμμα το οποίο να ζητά από το χρήστη τη λίστα
! με τα ονόματα πελατών και τα χρήματα σε Ευρώ τα οποία χρωστάει
! ο κάθε πελάτης μιας επιχείρησης. Κατόπιν να αναζητά και να
! εμφανίζει το όνομα του πελάτη που χρωστά τα περισσότερα χρήματα.
! Ο αριθμός των πελατών που θα δώσει ο χρήστης να καθορίζεται από
! τον ίδιο και να είναι μεταξύ 1 και 100.
! ===================================================================================
! panos giannakopoulos
! ===================================================================================
ΠΡΟΓΡΑΜΜΑ Αναζήτηση_Μέγιστης_Οφειλής
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: n, i, Χρήματα[100], max, θέση_Max
ΧΑΡΑΚΤΗΡΕΣ: Όνομα[100]
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε το πλήθος των πελατών (1-100)'
ΔΙΑΒΑΣΕ n
ΜΕΧΡΙΣ_ΟΤΟΥ (n>=1) ΚΑΙ (n<=100)
ΓΙΑ i ΑΠΟ 1 μέχρι n
ΓΡΑΨΕ 'Δώσε το όνομα του πελάτη ' , i
ΔΙΑΒΑΣΕ Όνομα[i]
ΓΡΑΨΕ 'Δώσε τα χρήματα που χρωστά'
ΔΙΑΒΑΣΕ Χρήματα[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
max <-- Χρήματα[1]
θέση_Max <-- 1
ΓΙΑ i ΑΠΟ 2 μέχρι n
ΑΝ Χρήματα[i] > max ΤΟΤΕ
max <-- Χρήματα[i]
θέση_Max <-- i
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ο πελάτης που χρωστά τα περισσότερα χρήματα είναι: ', Όνομα[θέση_Max]
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Αναζήτηση_Μέγιστης_Οφειλής