===== 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.
===== 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.