Помогите решить задачу на 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.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку
×