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

Question

Информатика

Надюша

8 февраля, 19:58

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

+4

Ответы (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.