Даны натуральное число N и последовательность из N целых чисел. Написать программу, определяющую количество положительных чисел в последовательности.
// 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
