Написать программу ввода целых чисел до тех пор, пока не будет введен ноль, посчитать...

Question

Написать программу ввода целых чисел до тех пор, пока не будет введен ноль, посчитать сумму введеных чисел и их среднее арифметическое. помогите пожалуйста!

Answer 1

var sum,n,temp:integer;

begin

   sum:=0;

   n:=0;

   readln(temp);

   while(temp<>0) do begin

      inc(n);

      sum:=sum+temp;

      readln(temp);

   end;

   writeln('Sum = ',sum,'; Ave = ',sum/n)

   end.