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

Ответ учителя по предмету Информатика

Ответ:

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