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

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.