Ответы
Ответ дал:
0
===== PascalABC.NET =====
begin
var (nPos, nNeg, nZero) := (0, 0, 0);
var a := ReadArrReal(10);
foreach var p in a do
if p > 0 then
nPos += 1
else if p = 0 then
nZero += 1
else
nNeg += 1;
Println('Положительных', nPos, ' нулевых', nZero,
' отрицательных', nNeg)
end.
Приложения:
![](https://st.uroker.com/files/dc5/dc59dddf3558773c09ab20411d7f0997.jpg)
Вас заинтересует
2 месяца назад
2 месяца назад
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад