Question

Решите в программе паскаль
На вход поступают положительные и отрицательные числа. Ввод
осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех
введенных чисел с клавиатуры, а также количество неотрицательных чисел

Answer 1

// PascalABC.NET

begin

 var (Сумма, КоличествоНеотрицательных) := (0, 0);

 foreach var Число in

     ReadSeqIntegerWhile(Введено -> Введено <> 0) do

 begin

   Сумма += Число;

   if Число >= 0 then

     КоличествоНеотрицательных += 1

 end;

 Print(Сумма, КоличествоНеотрицательных)

end.