Algorithmos An.Efarmogwn

// Mia etairia statistikwn ereunwn rwtise ti gnwmi 200 atomwn gia 10 themata. Na grafei 
// algorithmos o opoios tha diabazei kathe erwtima kathws kai tis apantiseis twn 200 atomwn.
// Oi apantiseis einai : NAI, OXI, Den Kserw Den Apantw. Afou apothikeusi ta stoixeia stous
// katalilous pinakes na emfanizei kathe erwtima mazi me to pososto twn triwn diaforetikwn 
// apantisewn.

Αλγοριθμος Ερευνα
  Για Ι απο 1 μεχρι 10
    Διαβασε Ερ[Ι]
    Για J απο 1 μεχρι 200
       Αρχη_επαναληψης
         Διαβασε Απ[Ι,J]
       Μεχρις_οτου Απ[I,J]="NAI ή Απ[I,J]="OXI" ή Απ[I,J]="ΔΞΔΑ"
    Τελος_επαναληψης
  Τελος_επαναληψης
  Για Ι απο 1 μεχρι 10
      Ν[Ι]<--0
      Ο[Ι]<--0
      ΔΞΔΑ[Ι]<--0
  Τελος_επαναληψης
  Για Ι απο 1 μεχρι 10
   Για J απο 1 μεχρι 200
      Αν Απ[I,J]="NAI" τοτε
           Ν[Ι]<--Ν[Ι]+1
      Αλλιως_αν Απ[Ι,J]="ΟΧΙ" τοτε
           Ο[Ι]<--Ο[Ι]+1
      Αλλιως
           ΔΞΔΑ[Ι]<--ΔΞΔΑ[Ι]+1
      Τελος_αν
   Τελος_επαναληψης
  Τελος_επαναληψης
  Για Ι απο 1 μεχρι 10 
     Εμφανισε Ερ[Ι],Ν[Ι]*100/200
     Εμφανισε Ερ[Ι],Ο[Ι]*100/200
     Εμφανισε Ερ[Ι],ΔΞΔΑ[Ι]*100/200
  Τελος_επαναληψης
Τελος Ερευνα