Дан массив состоящий из n (> 1) вещественных чисел. найти среднее арифметическое значение чисел массива

Question

Информатика

Ильюха

15 апреля, 17:54

Дан массив состоящий из n (> 1) вещественных чисел. найти среднее арифметическое значение чисел массива

+3

Ответы (1)

Знаете ответ на вопрос?

Эсфирь · Answer 1

Var

n, i, sum: integer;

sr: real;

a: array [1 ... 100] of real;

begin

writeln ('vvel n') ;

read (n) ;

writeln (n) ;

for i:=1 to n do

begin

read (a[i]) ;

sum:=sum+a[i];

end;

sr:=sum/n;

writeln ('srednee=', sr) ;

end.