Дан массив B, в котором содержится 10 элементов целого типа. Найти:

А) сумму элементов этого массива

Б) произведение элементов этого массива

В) Среднее арифметическое этого массива

Нужен алгоритм паскаль

Например:

Program Summa;

Var B:array (1 ... 10) of integer;

и т. д.

Const

n=10;

var B:array [1 ... n] of integer;

i, s, cu, k:integer;

cp:real;

begin

cu:=1;

writeln ('Введите элементы массива') ;

for i:=1 to n do begin

b[i]:=random (21) - 10;

writeln ('B[', i,']=', b[i]) ;

s:=s+b[i];

cu:=cu*b[i];

inc (k) ;

end;

cp:=s/k;

writeln ('Среднее арифметическое равно ', cp,', Произведение равно ', cu,', сумма равна ', s) ;

end.