var n, k, i, a:Integer;
begin
readln(n);
for i := 1 to n do
readln(a);
if a > 30 then
k:=k+1;
end;
writeln(k);
end.
var n, k, i, a:Integer;
begin
readln(n);
for i := 1 to n do
begin
readln(a);
if a > 30 then
begin
k:=k+1;
end;
end;
writeln(k);
end.