ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
	ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 50
		ans <-'α'
		ΟΣΟ ans <> 'Σ' Η ans <> 'Λ' Η ans <> 'Ξ'
			Διαβασε ans
		ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
	ΑΠ[i,k] <- ans
	ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
min <- -1
Για i ΑΠΟ 1 ΜΕΧΡΙ 50
	t_que[i] <- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
z<-1
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
	count <- 0
	ΓΙΑ k ΑΠΟ 1 μέχρι 100
		ΑΝ ΑΠ[k,i] = 'Λ' ΤΟΤΕ
			count <- count + 1
		ΤΕΛΟΣ_ΑΝ
	ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
	ΑΝ count > min
		ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ z
			t_que[j]<-0
		ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
		z <- 1
		min <- count
		t_que[z] <- i
	ΑΛΛΙΩΣ_ΑΝ count = min
		k<- k+1
		t_que[z] <- i
	ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

fifty <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
	grade <- 0
	ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 50
		Αν ΑΠ[k,i] = 'Σ'
			grade <- grade + 2
		ΑΛΛΙΩΣ_ΑΝ Αν ΑΠ[k,i] = 'Λ'
			grade <- grade - 1
		ΤΕΛΟΣ_ΑΝ
	ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
	ΒΑΘ[i] <- grade
	ΑΝ grade > 50 TOTE
		fifty <- fifty + 1
	ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΕΚΤΥΠΩΣΕ 'Πιο δύσκολες ερώτησεις : '
ΓΙΑ i ΑΠΟ 1 μέχρι z
	ΕΚΤΥΠΩΣΕ t_que[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΕΚΤΥΠΩΣΕ 'Αριθμός υποψηφίων με βαθμολογία μεγαλύτερη του 50 :', fifty
ΤΕΛΟΣ