Question

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

Answer 1

var n,k,s:integer;
begin
repeat 
readln(n);
if n>0 then begin
s:=s+n;
k:=k+1;
end;
until n = 0;
writeln('Сумма: ',s);
writeln('Сред.ариф: ',s div k);
end.

Answer 2

Var sum,n,ave:integer;
Begin
  Repeat
    Readln(n);
      if (n>0) then
         begin
          sum:=sum+n;
          ave:=ave+1;
        end
   Until (n=0);
 Writeln('Сумма введённых положительных чисел: ',sum); 
 Writeln('Среднее арифметическое этих чискл: ',sum/ave)
End.

82cf13f21e1d351f067318e5545a4e49.pas