أرشيف قسم الرياضيات والإعلام الآلي

program algo;

var 

a: array [1...100]of integer;

n,i,nbe: integer ;

begin 

read(n);nbe:=0;

for i:= 1 to n do

begin  

read(a[i]); 

if a[i]='e' then nbe := nbe +1;

end;

write (nbe);

end.