ΛΥΣΕΙΣ 62-67 Φ

Αλγόριθμος ασκ62
Για i από 1 μέχρι 500
     Διάβασε Ο[i]
     Για j από 1 μέχρι 3
          Διάβασε B[i, j]
     Τέλος_επανάληψης
Τέλος_επανάληψης
Για i από 1 μέχρι 500
     S ← 0
     Για j από 1 μέχρι 3
          S ← S + B[i, j]
     Τέλος_επανάληψης     
     MO[i] ← S/ 3
Τέλος_επανάληψης
Για i από 2 μέχρι 500
      Για j από 500 μέχρι i με_βήμα -1
            Αν MO[j - 1] < MO[j] τότε                  
                 Temp ← MO[j - 1]
                 MO[j - 1] ← MO[j]
                 MO[j] ← Temp
                 Temp1 ← O[j - 1]
                 O[j - 1] ← O[j]
                 O[j] ← Temp1
            αλλιώς                 
                 Αν MO[j - 1] = MO[j] τότε                      
                      Αν O[j - 1] > O[j] τότε                            
                           Temp1 ← O[j - 1]                           
                           O[j - 1] ← O[j]                           
                           O[j] ← Temp1
                      Τέλος_αν                 
                 Τέλος_αν             
            Τέλος_αν      
       Τέλος_επανάληψης
Τέλος_επανάληψης
Για i από 1 μέχρι 500
      Εκτύπωσε Ο[i], ΜΟ[i]
Τέλος_επανάληψης Πλήθος ← 0
Για i από 1 μέχρι 500
     Αν MO[i] = MO[1] τότε          
          Πλήθος ← Πλήθος + 1
     Τέλος_αν
Τέλος_επανάληψης
Εκτύπωσε Πλήθος
Τέλος ασκ62


Αλγόριθμος ασκ64
Δεδομένα //π//
πλ ← 0
Για i από 1 μέχρι 160
      s ← 0
      Για j από 1 μέχρι 3
            s ← s + π[i,j]       '
      Τέλος_επανάληψης      
      Αν s>10000 τότε           
           πλ ← πλ + 1
      Τέλος_αν
Τέλος_επανάληψης
Εκτύπωσε πλ
πλ ← 0
Για i από 1 μέχρι 160
     Αν π[i,4]>π[i,10] τότε          
          πλ ← πλ + 1
     Τέλος_αν
Τέλος_επανάληψης
Εκτύπωσε πλ
πλ ← 0
Για i από 1 μέχρι 160
      s1 ← 0
      s2 ← 0
      Για j από 1 μέχρι 3
            s1 ← s1 + π[i,j+3]            
            s2 ← s2 + π[i,j+9]      
      Τέλος_επανάληψης      
      Αν s1< s2 τότε           
           πλ ← πλ + 1
      Τέλος_αν
Τέλος_επανάληψης
Εκτύπωσε πλ
Για j από 1 μέχρι 12
      Αν π[45,j]>4000 τότε           
           Εκτύπωσε j
      Τέλος_αν
Τέλος_επανάληψης
s50 ← 0
j ← 1
Όσο j<=12 και s50<=23000 επανάλαβε        
        s50 ← s50 + π[50,j]        
        Αν s50>23000 τότε             
             Εκτύπωσε j
        Τέλος_αν    
        j ← j+1
Τέλος_επανάληψης
Αν j=13 τότε     
     Εκτύπωσε 'δεν τα κατάφερε'
Τέλος_αν
Τέλος ασκ64


Αλγόριθμος ασκ65
Δεδομένα //RIGHT//
Για i από 1 μέχρι 3500
     Διάβασε ΟΝ [i]     
     Για j από 1 μέχρι 80
           Αρχή_επανάληψης                   
                   Διάβασε ANSWERS[i,j]            
           Μέχρις_ότου ANSWERS[i,j]='Σ' ή ANSWERS[i,j]='Λ' ή  ANSWERS[i,j]='ΔΞ'
     Τέλος_επανάληψης
Τέλος_επανάληψης
Για i από 1 μέχρι 3500
     CORRECT[i] ← 0
     GRADES[i] ← 0
     Για j από 1 μέχρι 80
           Αν ANSWERS[i,j]= RIGHT[j]τότε                
                CORRECT[i] ← CORRECT[i]+1
                GRADES[i] ← GRADES[i] + 1
           αλλιώς                
                Αν ANSWERS[i,j] ≠ RIGHT[j] και ANSWERS[i,j] ≠ 'ΔΞ' τότε                     
                     GRADES[i] ← GRADES[i] - 0.25
                Τέλος_αν           
           Τέλος_αν      
      Τέλος_επανάληψης
Τέλος_επανάληψης
M ← 0
Για j από 1 μέχρι 80
      ΠΛ ← 0 
      Για i από 1 μέχρι 3500
            Αν ANSWERS[i,j]= RIGHT[j]τότε
                 ΠΛ ← ΠΛ + 1                           
            Τέλος_αν
      Τέλος_επανάληψης
      Αν ΠΛ=3500 τότε
           M ← M + 1
           Εκτύπωσε j
      Τέλος_αν
Τέλος_επανάληψης
Αν M=0 τότε     
     Εκτύπωσε 'καμμία ερώτηση απ' όλους σωστά'
Τέλος_αν
Για i από 2 μέχρι 158
      Για j από 3500 μέχρι i με_βήμα -1
            Αν GRADES[j-1] < GRADES[j] τότε
                 Temp ← GRADES[j-1]
                 GRADES[j-1] ← GRADES[j]
                 GRADES[j] ← Temp
                 Temp1 ← ΟΝ[j-1]                  
                 ΟΝ[j-1] ← ΟΝ[j]                 
                 ΟΝ[j] ← Temp1
            Τέλος_αν       
       Τέλος_επανάληψης
Τέλος_επανάληψης
Για i από 1 μέχρι 157
      ΕΠ[i] ← ΟΝ[i]
Τέλος_επανάληψης
Για i από 1 μέχρι 157
      Εκτύπωσε ΕΠ[i]
Τέλος_επανάληψης
Τέλος ασκ65



Αλγόριθμος ασκ66
Για i από 1 μέχρι 16
     Διάβασε ΟΝ [i]     
     Για j από 1 μέχρι 30
           Αρχή_Επανάληψης                   
                   Διάβασε ΑΠ[i , j]           
           Μέχρις_ότου ΑΠ[i , j] = 'Ν' Ή ΑΠ[i , j] = 'Ι' Ή ΑΠ[i , j] = 'Η'
     Τέλος_επανάληψης
Τέλος_επανάληψης
Για i από 1 μέχρι 16
      Για j από 1 μέχρι 3
            ΠΛ[i , j] ← 0
      Τέλος_επανάληψης
Τέλος_επανάληψης
Για i από 1 μέχρι 16
      Για j από 1μέχρι 30
           Αν ΑΠ[i , j] = 'N' τότε                
                ΠΛ[i,1] ← ΠΛ[i,1]+1
           Αλλιώς_αν ΑΠ[I,J] = 'Ι' τότε                 
                ΠΛ[i,2] ← ΠΛ[i,2]+1
           Αλλιώς                
                ΠΛ [i,3] ← ΠΛ[i,3]+1
           Τέλος_αν       
       Τέλος_επανάληψης
Τέλος_επανάληψης
Για i από 1 μέχρι 16
      ΒΑΘ[i] ← ΠΛ[i,1]*3+ΠΛ[i,2]*1
Τέλος_επανάληψης
Για i από 2 μέχρι 16
      Για j από 16 μέχρι i με_βήμα -1
           Αν ΒΑΘΜ [j-1] < ΒΑΘ[j] τότε                
                Αντιμετάθεσε ΒΑΘ[j-1], ΒΑΘ[j]                 
                Αντιμετάθεσε ON[j-1], ON[j]           
           Τέλος_αν      
Τέλος_επανάληψης
Τέλος_επανάληψης
Για i από 1 μέχρι 16
      Εμφάνισε ΟΝ[i], ΒΑΘ[i]
Τέλος_επανάληψης
Τέλος ασκ66


Αλγόριθμος ασκ67
Δεδομένα // ΜΗΝΕΣ, ΥΠΟΚΑΤ //
Για i από 1 μέχρι 16
      Για j από 1 μέχρι 360
           Διάβασε Π[i,j]      
      Τέλος_επανάληψης
Τέλος_επανάληψης
s ← 0
Για j από 271 μέχρι 300
      s ← s + Π[9,j]
Τέλος_επανάληψης
Εκτύπωσε s
s ← 0
Για i από 1 μέχρι 16
      Για j από 61 μέχρι 150
            s ← s + Π[i,j]    
      Τέλος_επανάληψης
Τέλος_επανάληψης
Εκτύπωσε s
Διάβασε mon,mag
υπ1 ← Ψευδής
υπ2 ← Ψευδής
j ← 1
Όσο j<=12 και υπ1 = Ψευδής  επανάλαβε        
       Αν ΜΗΝΑΣ[j]=mon τότε            
            υπ1 ← Αληθής            
            pos2 ← j
       αλλιώς            
            j ← j + 1
       Τέλος_αν
Τέλος_επανάληψης
i ← 1
Όσο i<=16 και υπ2 = Ψευδής  επανάλαβε       
       Αν ΥΠΟΚΑΤ[i]= mag τότε            
            υπ2 ← Αληθής            
            pos1 ← i
       αλλιώς            
            i ← i + 1
       Τέλος_αν
Τέλος_επανάληψης
Αν υπ1 = Αληθής και υπ2 = Αληθής τότε     
     s ← 0
     Για j από (pos2-1)*30+1 μέχρι pos2*30
           s ← s + Π[pos1,j]     
     Τέλος_επανάληψης
αλλιώς     
     Εκτύπωσε 'κάπου τα θαλάσσωσες μάγκα'
Τέλος_αν
Για i από 1 μέχρι 16
      Για k από 1 μέχρι 12
            s ← 0
            Για j από 1 μέχρι 30
                  s ← s + Π[i,(k-1)*30+j]            
            Τέλος_επανάληψης            
            ΜΗΝ_ΠΩΛ[i,k] ← s
      Τέλος_επανάληψης
Τέλος_επανάληψης
Αποτελέσματα //ΜΗΝ_ΠΩΛ//
Τέλος ασκ67