Дана последовательность из n целых чисел. Найти среднее арифметическое этой последовательности.

Question

Информатика

Александрушка

24 января, 06:16

Дана последовательность из n целых чисел. Найти среднее арифметическое этой последовательности.

+1

Ответы (1)

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

Ариадна · Answer 1

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.

все числа вводятся вручную, первое число-кол-во чисел, далее эти числа.