Question

помогите пожалуйста, паскаль.
В последовательности целых чисел определить, каких чисел больше:
положительных или отрицательных. Количество чисел в
последовательности НЕ известно, ввод заканчивается числом 0

Answer 1

Ответ:

--- PascalABC.NET 3.6.2 ---

begin

 var (pos, neg) := (0, 0);

 ReadSeqIntegerWhile(p -> p <> 0)

   .ForEach(p -> begin

     if p >= 0 then pos += 1 else neg += 1;

     end);

     

 if pos > neg then println('Sequence contains more positive numbers') else  

   if neg < pos then println('Seqnuece contains more negative numbers') else println('Sequence contains equal count of positive and negative numbers');

 

end.