ΠΡΟΓΡΑΜΜΑ euro ΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΕΣ: xora[10],winner ΑΚΕΡΑΙΕΣ: i,j,k,l,m,vathm[10,8],sy[8],max,mix,null ΑΡΧΗ ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10 ΓΡΑΨΕ 'Dose to onoma tis xoras No',i ΔΙΑΒΑΣΕ xora[i] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10 ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 8 vathm[i,j] <-- 0 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ i ΑΠΟ 1 μέχρι 10 ΓΡΑΨΕ 'Geia sou',xora[i] ΓΡΑΨΕ 'Parakalw grapse με ti seira' ΓΡΑΨΕ 'poies 5 xores vathmologeis' ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 5 ΔΙΑΒΑΣΕ j ΟΣΟ j>8 ΕΠΑΝΑΛΑΒΕ ΓΡΑΨΕ 'H xora pou edoses den lamvanei' ΓΡΑΨΕ 'meros ston diagonismo, parakalw' ΓΡΑΨΕ 'ksanadwse' ΔΙΑΒΑΣΕ j ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΟΣΟ j=i Ή j<1 Ή vathm[i,j]<>0 ΕΠΑΝΑΛΑΒΕ ΓΡΑΨΕ 'Lathos,parakalw ksanagrapse' ΔΙΑΒΑΣΕ j ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΕΠΙΛΕΞΕ k ΠΕΡΙΠΤΩΣΗ 1 vathm[i,j] <-- 12 ΠΕΡΙΠΤΩΣΗ 2 vathm[i,j] <-- 10 ΠΕΡΙΠΤΩΣΗ 3 vathm[i,j] <-- 8 ΠΕΡΙΠΤΩΣΗ 4 vathm[i,j] <-- 7 ΠΕΡΙΠΤΩΣΗ 5 vathm[i,j] <-- 6 ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 8 sy[j] <-- 0 ΓΙΑ m ΑΠΟ 1 ΜΕΧΡΙ 10 sy[j] <-- sy[j]+vathm[m,j] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ max <-- 0 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 8 ΑΝ sy[i]>max ΤΟΤΕ max <-- sy[i] winner <-- xora[i] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'H nikitria xora einai h:',winner ΓΡΑΨΕ '===============================' ΓΡΑΨΕ 'H ellade pire 12 vathmous από tis eksis xores:' mix <-- 0 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 8 ΑΝ vathm[i,5]=12 ΤΟΤΕ ΓΡΑΨΕ xora[i] ΑΛΛΙΩΣ_ΑΝ vathm[i,5]<>12 ΤΟΤΕ mix <-- mix+1 ΤΕΛΟΣ_ΑΝ ΑΝ mix=8 ΤΟΤΕ ΓΡΑΨΕ 'Kammia xora den edwse 12 vathmous stin Ellada' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ null <-- 0 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 8 ΑΝ sy[i]=0 ΤΟΤΕ null <-- null+1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ null,'xores den piran kanenan vathmo και einai oi eksis:' ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 8 ΑΝ sy[i]=0 ΤΟΤΕ ΓΡΑΨΕ xora[i] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ ΓΡΑΨΕ ΓΡΑΨΕ ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 8 ΓΡΑΨΕ 'Η xora',xora[j],'exei',sy[j],'vathmous' ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ