Составить и отладить программу которая подсчитывает количество отрицательных и положительных чисел во введенном массиве

//Pascal ABC.NET 3.1 сборка 1219

begin
 var ar:=ReadArrInteger(5);
 writeln('Отрицательных:',ar.Where(x -> x<0).Count);
 write('Положительных:',ar.Where(x -> x>0).Count);
end.

Пример ввода:
-1
-2
-3
4
5
Пример вывода:
Отрицательных:3
Положительных:2

K = 0
for i in range(input()):
if int(input()) != 0:
k += 1
print(k)
Python 3.0

Решение с заданным массивом
A = [Наш массив] (Считать массив можно так:
{ for i in range(N) # N - Количество символов
___A.append(int(input())} # Добавляем элемент в конец, т.е. A[0]; A[1]...
k = 0
for i in range(len(A)):
___in A[i] != 0
k +=1
print(k)