Question

Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры

Answer 1

var
а : integer; { число, введенное с клавиатуры }
n : integer; { количество чисел }
s : integer; { сумма чисел }
m : real;    { среднее арифметическое }
begin
     s:=0;
      n:=0;
    writeln('Вычисление среднего арифметического
последовательности положительных чисел.');
        writeln('Вводите после стрелки числа. ',
'Для завершения ввода введите ноль.');
         repeat
write(‘> ');
readln(a) ;
s:=s+a;
n:=n+l;
until a <= 0;
n:=n -l;
writeln('Введено чисел: ', n) ;
writeln('Сумма чисел: ',s);
m := s/n;
writeln('Среднее арифметическое: ',m:6:2);
writeln('Для завершения работы программы нажмите <Enter>');
readln;
end.