Массив заполнен случайными величинами в диапазоне от -30 до 29 и состоит из N элементов. Подсчитать сколько в нём

print *,count(a<0),count(a>0),count(a=0)

if a[i]<0 then s:=s+1;
if a[i]>0 then s1:=s1+1;
if a[i]=0 then s2:=s2+1;
ввод и вывод сама

4 -23 -23 16 -9 4 3 -10 27 0
kol pol= 5 kol otric= 4 kol nul= 1
====================
-22 -21 26 -17 4 14 5 -30 20 27
kol pol= 6 kol otric= 4 kol nul= 0
====================
-11 -2 -30 -20 2 29 0 -18 0 0
kol pol= 2 kol otric= 5 kol nul= 3
====================
-30 0 -15 9 -10 29 14 0 4 23
kol pol= 5 kol otric= 3 kol nul= 2
====================
-27 0 -8 0 0 1 3 0 0 0
kol pol= 2 kol otric= 2 kol nul= 6
====================
22 29 -22 0 0 10 24 27 27 0
kol pol= 6 kol otric= 1 kol nul= 3
====================
-22 24 -1 28 16 21 -14 29 23 -14
kol pol= 6 kol otric= 4 kol nul= 0
====================
14 -28 -5 0 15 21 19 0 -25 -20
kol pol= 4 kol otric= 4 kol nul= 2
====================
10 16 15 26 21 -30 -14 9 17 -5
kol pol= 7 kol otric= 3 kol nul= 0
====================
-21 13 -28 18 -2 2 -17 3 0 -18
kol pol= 4 kol otric= 5 kol nul= 1
====================
0 -5 -27 6 27 0 -19 -15 0 -10
kol pol= 2 kol otric= 5 kol nul= 3
====================
0 2 28 17 5 2 -27 -18 8 20
kol pol= 7 kol otric= 2 kol nul= 1
====================