PascalABC.NET
begin
// Последовательность целых чисел вводится с клавиатуры
// пока не будет введен 0 (который не войдет в нее).
// Затем последовательность преобразуется в массив (ToArray)
// нужного размера, который сохраняется с именем a
var a := ReadSeqIntegerWhile(p -> p <> 0).ToArray;
// Заведем счетчики для количества положительных kp и
// отрицательных kn элементов и обнулим их
var (kp, kn) := (0, 0);
// Просматриваем в цикле массив. На каждом шаге p будет обозначать
// очередной элемент массива
foreach var p in a do
if p > 0 then // если элемент положительный
kp += 1 // добавим 1 в счетчик положительных
else if p < 0 then // если элемент отрицательный
kn += 1; // добавим 1 в счетчик отрицательных
// Осталось вывести результаты
Writeln('Положительных чисел ', kp, ', отрицательных ', kn)
end.
from random import randint
lst = [randint(0, 49) for _ in range(15)]
print(*lst)
print(len([*filter(lambda x: x % 2 == 0 and x != 0, lst)]))