Решите в программе паскаль
На вход поступают положительные и отрицательные числа. Ввод
осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех
введенных чисел с клавиатуры, а также количество неотрицательных чисел
На вход поступают положительные и отрицательные числа. Ввод
осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех
введенных чисел с клавиатуры, а также количество неотрицательных чисел
More Questions From This User See All
Answers & Comments
// PascalABC.NET
begin
var (Сумма, КоличествоНеотрицательных) := (0, 0);
foreach var Число in
ReadSeqIntegerWhile(Введено -> Введено <> 0) do
begin
Сумма += Число;
if Число >= 0 then
КоличествоНеотрицательных += 1
end;
Print(Сумма, КоличествоНеотрицательных)
end.