using System;
namespace znanja
{
class Program
{
static void Main(string[] args)
{
int num = int.Parse(Console.ReadLine());
int[] array = new int[num];
array = Array.ConvertAll(Console.ReadLine().Split(' ', StringSplitOptions.RemoveEmptyEntries), int.Parse);
int count = 0;
for (int i = 0; i < num; i++)
{
if (array[i] > 0) count++;
}
Console.WriteLine(count);
}
}
}
1)КАНАТА
КАНТРИ
КАРАТА
КАРАТ
КАРЕТА
КАРИНА
КАРИНЕ
КЕНАРА
НАКАТА
НЕКТАР
НИЩЕТА
РАКЕТА
РАКИТА
РАТНИК
РЕТИНА
ТАНКЕР
ТАРАНА
ТАРАЩА
ТИРАНА
ТЩАНИЕ
ЩЕТИНА
2) КАРАТА
КАРАТЕ
КАРЕТА
КАРИНА
КАРИНЕ
НАКАТА
НИЩЕТА
РАКЕТА
РАКИТА
РЕТИНА
ТАРАНА
ТАРАЩА
ТИРАНА
ЩЕТИНА
3)КАРИНЕ
НЕКТАР
НИЩЕТА
РАТНИК
РЕТИНА
ТАНКЕР
ТЩАНИЕ
ЩЕТИНА
Всего 21 слово