Ответы
Ответ дал:
1
===== PascalABC.NET =====
begin
var (sn, sp) := (0, 0);
foreach var n in ReadSeqInteger(6) do
if n > 0 then
sp += 1
else if n < 0 then
sn += 1;
Writeln('Отрицательных ', sn, ', положительных ', sp)
end.
Приложения:
Аноним:
А блок схемой можно?(пожалуйста)
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
7 лет назад