Задача в Pascal. Кто может помочь?
Суть задачи: необходимо последовательно вводить числа (притом неизвестно заранее количество этих чисел), и чтобы каждый раз при вводе нового числа программа рассчитывала среднее значение введенных чисел.
К примеру, ввел я число 16, программа в следующей строке написала, что среднее значение равно 16, далее я еще ввел число 32 (то есть теперь у меня в памяти программы два числа 16 и 32) и программа вывела в следующей строке, что средней значение теперь равно 24.
И так далее до тех пор, пока пользователю не надоест видимо.
Подскажите хотя бы идею :)
sum:=0; count:=0;
while true do
begin
readln(n);
sum:=sum+n;
inc(count);
writeln(sum/count);
end;
А если мне далее надо еще что-то делатьмв программе с этим количеством чисел? Я организую таким же образом массив, но дело в том, что ваш код рассчитан просто на ввод и вывод среднего значания чисел. Мне получается надо при каком то условии выйти из него (прервать может быть). Как быть?
считай сумму чисел и их количество а выводи сумма/количество
const n=100;
var k:array [1..n]of integer;
a,b,c:integer;
begin
b:=0;
write('Сколько раз вводить число? = ');
readln(c);
for c:= 1 to c do
begin
write('Введите число = ');
readln(a);
b:=b+a;
writeln('a = ', b, ',Среднее число = ',b/2);
end;
end.