Даны натуральное число N и последовательность из N целых чисел. Написать программу,...

Question

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

Answer 1

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  Print(ReadSeqInteger('>',ReadInteger('n=')).Where(k->k>0).Count)
end.

Тестовое решение:
n= 10
> 5 -3 0 -4 2 5 8 0 3 6
6