Дан массив B, в котором содержится 10 элементов целого типа. Найти:
А) сумму элементов этого массива
Б)произведение элементов этого массива
В) Среднее арифметическое этого массива
Нужен алгоритм паскаль
Например:
Program Summa;
Var B:array (1..10) of integer;
и т.д.

спасибо огромное) а вы можете написать это все по отдельности, т.е. как я написала в задании??)))

Constn=10;var B:array [1..n] of integer;i,s,cu,k:integer;cp:real;begincu:=1;writeln('Введите элементы массива');for i:=1 to n do beginb[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.