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);
}
}
}
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);
}
}
}
program minMax;
type Massiv=array[1..15]of integer;
var v:Massiv;
i, min, max:integer;
begin
randomize;
v[1]:=5+random(46);
min:=v[1]; max:=v[1];
for i:=2 to 15 do
begin
v[i]:=5+random(46);
if v[i]<min then min:=v[i];
if v[i]>max then max:=v[i];
end;
writeln(' Massiv: ');
for i:=1 to 15 do
write(v[i], ' ');
writeln;
writeln('min = ',min);
writeln('max = ',max);
end.