Помогите решить задачу на Pascal. Дано: а(100)-произвольный Найти: среднее арифметическое.
Помогите решить задачу на Pascal.
Дано: а(100)-произвольный
Найти: среднее арифметическое.
Гость
Ответ(ы) на вопрос:
Гостьprogram srof;
var a,b,c,d:real;
begin
writeln('введите любое количество цифр и завершите набор нажав 0');
readln(a);
b:=0;
c:=0;
while (a<>0) do
begin
b:=a+b;
c:=c+1;
readln(a);
end; d:=b/c;
writeln('ответ ',d);
end.
Не нашли ответ?
Похожие вопросы