Question

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

Answer 1

var  n, ans, sum: integer;   avg: real;begin  sum:=0; n:=0;  repeat    n+=1;    readln(ans);    sum+=ans;  until ans=0;  if (sum<>0) then n-=1;  avg:=sum/n;  Writeln('sum=',sum,'; average=',avg);end.

запилила вот так, потому что сайт делает некрасиво
https://codepad.co/snippet/FmJx0dvk