Question

Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и подсчет суммы и среднего
арифмитического введённых положительных чисел.Используйте оператор while do

Answer 1

PascalABC.NET

var a,b,s:Integer;
begin
a:=1;
while a<>0 do
begin
Read(a);
if a > 0 then
begin
s+=a;
b+=1;
end;
end;
WriteLn('Сумма чисел: '+s);
WriteLn('Среднее арифметическое: '+s/b);
end.