πρόγραμμα fisiki
μεταβλητές
ακέραιες:fis[5],i,j,max,min,temp,k20,kmo
ΠΡΑΓΜΑΤΙΚΕΣ: mo
αρχή
για i από 1 μέχρι 5
αρχή_επανάληψης
διάβασε fis[i]
μέχρις_ότου (fis[i]>=0) και (fis[i]<=20)
mo <-- mo+fis[i]/5
αν fis[i]=20 τότε
k20 <-- k20+1
τέλος_αν
τέλος_επανάληψης
min <-- fis[1]
max <-- fis[1]
για i από 2 μέχρι 5
για j από 5 μέχρι i με βήμα -1
αν fis[j-1]>fis[j] τότε
temp <-- fis[j]
fis[j] <-- fis[j-1]
fis[j-1] <-- temp
τέλος_αν
τέλος_επανάληψης
τέλος_επανάληψης
γράψε 'o mesos oros einai ',mo
για i από 1 μέχρι 5
αν fis[i]>mo τότε
kmo <-- kmo+1
τέλος_αν
τέλος_επανάληψης
γράψε 'o mikroteros einai ' ,fis[1]
γράψε ' o megaliteros einai ',fis[5]
γράψε 'bathmoi pano apo ton meso oro ',kmo
γράψε 'bathmoi 20 ', k20
τέλος_προγράμματος