В одномерном массиве найти количество положительных элементов.

//PascalABC.NET 3.4.2

begin

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

end.