ΠΡΟΓΡΑΜΜΑ ΔΕΚΑΘΛΟ ΣΤΑΘΕΡΕΣ S=128 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: max,min,w,n,i,y[S],p[S],a[S] ΑΡΧΗ ΔΙΑΒΑΣΕ n ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n ΔΙΑΒΑΣΕ y[i],p[i] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ max <-- y[1] min <-- p[1] ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ n ΑΝ y[i]>max ΤΟΤΕ max <-- y[i] min <-- p[i] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n ΑΝ (y[i]=max) ΚΑΙ (p[i]<=min) ΤΟΤΕ min <-- p[i] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ w <-- 0 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n ΑΝ (y[i]=max) ΚΑΙ (p[i]=min) ΤΟΤΕ w <-- w+1 a[w] <-- i ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'πλήθος νικητών=',w,' και είναι οι ' ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ w ΓΡΑΨΕ a[i] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ