Дан массив из 8 элементов. Определить а) сумму всех элементов массива; б) произведение всех элементов массива; в) среднее арифметическое всех элементов массива

Question

Информатика

Калуф

4 марта, 17:00

Дан массив из 8 элементов. Определить а) сумму всех элементов массива; б) произведение всех элементов массива; в) среднее арифметическое всех элементов массива

+1

Ответы (1)

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

Стефа · Answer 1

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

s, p, i:integer;

sr:real;

begin

s:=0; p:=1;

write ('заполни массив') ;

for i:=1 to 8 do begin

readln (a[i]) ;

s:=s+a[i];

p:=p*a[i];

end;

sr:=s/8;

writeln ('s=', s) ;

writeln ('p=', p) ;

writeln ('sr=', sr) ;

end.