//PascalABC.NET 3.4.2
begin
readarrinteger('Введите элементы массива:', readinteger('Введите размер массива:')).Where(x -> x > 0).Count.Print();
end.
