Вычислить сумму и среднее арифметическое последовательности, введенной пользователем с клавиатуры (на Паскале).

В процессе ввода чисел в один счетчик мы накапливаем сумму, а во второй - общее количество введенных чисел. Далее остается всего лишь разделить сумму на количество введенных чисел, чтобы найти среднее арифметическое.

program ex41;
uses crt;
var
n,x,s:integer;
sred: real;
begin
clrscr;
n:=0;
s:=0;
repeat
write('введите элемент последовательности: ');
readln(x);
if x>0 then
begin
s:=s+x;
n:=n+1;
end;
until x<0;
if n>0 then
begin
writeln('сумма последовательности = ',s);
sred:=s/n;
writeln('среднее арифметическое = ',sred:5:5);
end;
readln;
end.