Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех...

Question

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

Answer 1

var
   date, number, summa : integer;
   avarage : real;
begin
   date := 1;
   summa := 0;
   number := 0;
   avarage := 0;
   repeat
      readln(date);
      if (date <> 0) then
         begin
            number := number + 1;
         end;
      summa := summa + date;
   until (date = 0);
   avarage := summa / number;   writeln('Summa = ', summa);
   writeln('Srednee znachenie = ', avarage:2:3);
   readln;
end.