Найти среднее арифметическое элементов целого массива кол-во элементов в массиве 8

Question

Информатика

Мелаша

25 мая, 19:55

Найти среднее арифметическое элементов целого массива кол-во элементов в массиве 8

+3

Ответы (1)

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

Агита · Answer 1

Program n_11;

var i, s: integer;

var r: real;

a: array[1 ... 8] of integer;

begin

randomize;

for i:=1 to 8 do a[i]:=random (100) ;

for i:=1 to 8 do write (a[i], ' ') ;

for i:=1 to 8 do

s:=s+a[i];

writeln ('сумма=', s) ;

r:=s div 8;

writeln ('Ср. ар. = ', r) ;

end.