Помогите решить задачу на Pascal.

Дано: а (100) - произвольный

Найти: среднее арифметическое.

Question

Информатика

Венуста

14 июня, 03:09

Помогите решить задачу на Pascal.

Дано: а (100) - произвольный

Найти: среднее арифметическое.

+2

Ответы (1)

Знаете ответ?

Гедеон · Answer 1

Program srof;

var a, b, c, d:real;

begin

writeln ('введите любое количество цифр и завершите набор нажав 0') ;

readln (a) ;

b:=0;

c:=0;

while (a0) do

begin

b:=a+b;

c:=c+1;

readln (a) ;

end; d:=b/c;

writeln ('ответ ', d) ;

end.

Помогите решить задачу на Pascal.Дано: а (100) - произвольныйНайти: среднее арифметическое.

Помогите решить задачу на Pascal.

Дано: а (100) - произвольный

Найти: среднее арифметическое.