Άλλα μηνύματα του μέλους ElTopo σε αυτό το thread

Αλγόριθμος ΔΘ
Σ<- 0
p<- 1
Για i απο 1 μέχρι 10                               
    Διάβασε ΟΝ[i]                                    
    Για j απο 1 μέχρι 4
        Για κ απο 1 μέχρι 7
            Δίαβασε Μ[i,j,κ]                       !Χρησιμοποιώ τριδιάστατο πίνακα αφού διευκολύνει ιδιαίτερα 
        Τέλος_επανάληψης                           !το τελευταίο ερώτημα,και γενικότερα έχουμε καλύτερο έλεγχο των εβδομάδων/μερών
    Τέλος_επανάληψης
Τέλος_επανάληψης                                   !Τέλος Δ1
Για i απο 1 μέχρι 10
    Σ<- 0
    Για j απο 1 μέχρι 4
        Για κ απο 1 μέχρι 7
            Σ<- Σ+Μ[i,j,k]                           !Κάνω το σύνολο κάθε βδομάδας
        Τέλος_επανάληψης
    Τέλος_επανάληψης
    Εμφάνισε "Όνομα:", ΟΝ[i],"Επισκέψεις σε διάστημα 4 εβδομάδων:",Σ
Τέλος_επανάληψης                                   !Τέλος Δ2
f1<- false
Για i απο 1 μέχρι 10    
    i<- 1
    f2<- true
    Όσο j<=4 και f=true επανάλαβε
        Όσο κ<=7 και f2=true επανάλαβε
            Αν M[i,j,κ]=<500 τοτε f2=false           !Αν έστω και μία μέρα δέν έχει πάν απο 500,σταματάει 
            κ<- κ+1                                   !η σύγκριση αυτού το ιστοτόπου μέσω της μεταβλητής f2
        Τέλος_επανάληψης
        j<- j+1
    Τέλος_επανάληψης
    Άν f=true τοτε
        Εμφάνισε "Ο ιστότοπος",ΟΝ[i],"είχε 500 και άνω επισκέψεις καθημερινά αυτές τις 4 εβδομάδες"
        f1<- true
    Tέλος_αν
Τέλος_επανάληψης                                   
Aν f1=false τοτε Εμφάνισε "Δέν υπήρξαν σελίδες που να πληρούν τα κριτήρια"
Αρχή_επανάληψης                                       !Tέλος Δ3
    Εμφάνισε "Εισάγετε όνομα"
    Δίαβασε χ
    f1<- false
    Όσο i<=10 και f1=false επανάλαβε               !Ξαναχρησιμοποιώ την f1 μη χαλαμε τζάμπα bytes αφου κάθεται...
        Αν x=ΟΝ[i] τότε 
            f1<- true
            p<- i                                   !Βρίσκω ποιός ιστοτοπος είναι με την μεταβλητη p
        Tέλος_αν
    Tέλος_επανάληψης
μέχρις_οτου f1=true
Για j απο 1 μέχρι 4                                   !Mεταφέρω τα εβδομαδιαία σύνολα σε άλλο πίνακα
    Για k απο 1 μέχρι 7
        Ε[j]<- E[j]+M[p,j,κ]
    Tέλος_επανάληψης
Τέλος_επανάληψης
max<- E[1]
m<- 1
Για j απο 2 μεχρι 4                                   !Βρίσκω το μέγιστο τους
    Άν max<E[j] τότε
        max<- E[j]
        m<- j
    Tέλος_αν
Tέλος_επανάληψης
Eμφάνισε "Εβδομαδα μέγιστης επισκεψιμότητας:", m   !Ξαναψάχνω μήπως υπάρχει άλλη βδομάδα με το ίδιο σύνολο,αφού η εκφώνηση λέει "εβδομάδες"
Για j απο 2 μέχρι 4
    Άν max=E[j] τότε
        Εμφάνισε "Εβδομάδα επίσης μέγιστης επισκεψιμότητας:",j
    Tέλος_αν
Τέλος_επανάληψης
Τέλος ΘΔ