Помогите решить задачу на Pascal.
Дано: а(100)-произвольный
Найти: среднее арифметическое.
Дано: а(100)-произвольный
Найти: среднее арифметическое.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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.