Вводится 6 чисел определить сколько из них положительных и отрицательных

Question

Информатика: Вводится 6 чисел определить сколько из них положительных и отрицательных

TANIAMIRNAI · Answer

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

Вводится 6 чисел определить сколько из них положительных и отрицательных

Популярные вопросы