begin
var i, n, k, a:integer;
//k - количество положительных чисел
k:=0;
//n - количество чисел 
readln(n);
for i := 1 to n do
begin
    readln(a);
    if a > 0 then
    k := k + 1;
end;
writeln('Количество положительных чисел: ', k, '.');
end.