Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и подсчет суммы и среднего
арифмитического введённых положительных чисел.Используйте оператор while do
More Questions From This User See All
Answers & Comments
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.