Question

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

Answer 1

var

i:longint;

sr,ch: real;

begin

sr:=0;

for i := 1 to 15 do

begin

readln(ch);

sr:=sr+ch

end;

sr := sr/15;

writeln('Ответ: ',sr);

end.

Answer 2

Для нахождения среднего арифметического 15 чисел нужно сложить все числа и разделить полученную сумму на количество чисел. Предоставьте эти числа, чтобы я мог выполнить расчет.