Question

Паскаль. Даны три целых числа. Найти количество отрицательных чисел в исходном наборе.

(ДАЮ 35 баллов кто ответит)

Answer 1

Объяснение:

Какие числа ты не написал!?

Answer 2

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

begin

 ReadSeqInteger('Введи 3 числа:', 3) // вводим 3 числа

   .Where(p -> p < 0)   // пропускаем через фыильтр отрицательные

   .Count    // находим количество прошедших фильтр

   .Println   // выводим его.

end.