πρόγραμμα thema4




μεταβλητές
  ακέραιες :i,j,lath[50],max,bath,katast[100],p,ti1,per,zz
  χαρακτήρες: ap[100,50],ti2




αρχή
  γράψε 'an thes na gemiseis ton pinaka monos sou pata 2 allios αν thes aftomata pata 1'
  διάβασε per

  για i από 1 μέχρι 100
    για j από 1 μέχρι 50
      zz <-- zz+1
      ΕΠΙΛΕΞΕ per
        περίπτωση 1
          αρχή_επανάληψης
            ti1 <-- ΤΥΧΑΙΟΣ(3)
          μέχρις_ότου (ti1=1) ή (ti1=2) ή (ti1=3)
          αν ti1=1 τότε
            ti2 <-- 's'
          αλλιώς_αν ti1=2 τότε
            ti2 <-- 'l'
          αλλιώς_αν ti1=3 τότε
            ti2 <-- 'd'
          τέλος_αν
          ap[i,j] <-- ti2
        περίπτωση 2
          αρχή_επανάληψης
            γράψε 'dose apantisi no ',zz
            διάβασε ap[i,j]
          μέχρις_ότου (ap[i,j]='s') ή (ap[i,j]='l') ή (ap[i,j]='d')
      ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ



      αν ap[i,j]='l' τότε
        lath[j] <-- lath[j]+1
      τέλος_αν


    τέλος_επανάληψης
  τέλος_επανάληψης
  για j από 1 μέχρι 50
    αν lath[j]>max τότε
      max <-- lath[j]
    τέλος_αν
  τέλος_επανάληψης



  για j από 1 μέχρι 50
    αν lath[j]=max τότε
      γράψε 'h diskoloteri erotisi einai h   ',j
    τέλος_αν
  τέλος_επανάληψης
  για i από 1 μέχρι 100
    για j από 1 μέχρι 50
      αν ap[i,j]='s' τότε
        bath <-- bath + 2
      αλλιώς_αν ap[i,j]='l' τότε
        bath <-- bath-1
      τέλος_αν
    τέλος_επανάληψης
    katast[i] <-- bath
    bath <-- 0
  τέλος_επανάληψης
  για i από 1 μέχρι 100
    αν katast[i]>= 50 τότε
      p <-- p+1
    τέλος_αν
  τέλος_επανάληψης
  γράψε 'oi ipopsifioi pou perasan einai  ',p

τέλος_προγράμματος