Дана последовательность из n целых чисел. Найти среднее арифметическое этой последовательности.
Дана последовательность из n целых чисел. Найти среднее арифметическое этой последовательности.
Гость
Ответ(ы) на вопрос:
Гостьprogram D1KPxx16;
uses crt;
var
a,sr:real;
i,n:integer;
begin
read(n);
for i:=1 to n do
begin
read(a);
sr:=sr+a;
end;
sr:=sr/n;
writeln(sr);
end.
все числа вводятся вручную, первое число-кол-во чисел, далее эти числа.
Не нашли ответ?
Похожие вопросы