Question

Дан массив, состоящий из целых чисел. Напишите программу, которая подсчитывает количество положительных чисел среди элементов массива.

Входные данные
Сначала задано число N — количество элементов в массиве (1N10000). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел
ЯЗЫК - PASCAL
35 баллов

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 a.Count(p -> p > 0).Println

end.