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