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