Найдите среднее арифметическое массива А

(Паскаль)

Question

Информатика

Леонинка

23 октября, 14:33

Найдите среднее арифметическое массива А

(Паскаль)

+5

Ответы (1)

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

Феона · Answer 1

Var x:array[1 ... 100]:real;

k, s, p:integer;

begin

writeln ('количестов элементов в массиве') ;

readln (n) ;

writeln ('введите массив') ;

for k:=1 to n do

readln (x) ;

s:=0;

for k:=1 to n do

s:=s+x[k];

s:=s/n;

writeln (s) ;

Найдите среднее арифметическое массива А(Паскаль)

Найдите среднее арифметическое массива А

(Паскаль)