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

Предыдущий
вопрос Следующий
вопрос

var

 srednee:real;

 summ,summp,x,i:integer;

begin

 summ:=0;

 srednee:=0;

 i:=0;

 summp:=0;

 repeat

  write('Введите число = ');

  readln(x);

  summ:=summ+x;

  if x>0 then 

   begin

    i:=i+1;

    summp:=summp+x;

   end;

  until x=0;

 srednee:=summp/i;

 writeln('Сумма всех введенных чисел = ',summ);

 writeln('Среднее арифмитическое всех положительных чисел =',srednee );

 end.