<em>var a, b, c, n :integer; </em>
<em>procedure max(a,b:integer; var c :integer); </em>
<em>begin </em>
<em> if a>b then c:=a else c:=b; </em>
<em>end;</em>
<em>begin</em>
<em> read (a,b,c);</em>
<em> max(a,b,a);</em>
<em> max(a,c,a);</em>
<em> write (a);</em>
<span><em>end.</em></span>
N = int(input('N = '))
k1=0
k2=0
k3=0
for i in range(N):
a = int(input())
if a==0:
k1=k1+1
elif a>0:
k2=k2+1
else:
k3=k3+1
print(k1)
print(k2)
print(k3)
Пример:
<span>N = 5
28
0
0
0
0
4
1
0</span>
1) С
2) D
3) C
4) C
5) фото
6) С
7) С
8) B
9) B
10) C
11) D
12) B
13) B
14) C
15) A
16) A