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

Question

Информатика

Пашата

9 ноября, 22:23

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

+1

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