Найти сумму, произведение и среднее арифметическое элементов массива (А (10))

Question

Информатика

Артур

16 января, 09:55

Найти сумму, произведение и среднее арифметическое элементов массива (А (10))

+4

Ответы (1)

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

Маруся · Answer 1

Program mass;

var s, p, sr:real;

const n=10;

i, k:integer;

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

begin

p:=1;

for i:=1 to n fo read (a[i]) ;

for k:=1 to n do

begin

s:=s+a[k];

p:=p*a[k];

end;

sr:=s/n;

wtiteln ('Сумма=', s) ;

writeln ('Произведение=', p) ;

wtiteln ('Среднее арифметическое=', sr) ;

end.