Question

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

Answer 1

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.

Answer 2

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.