Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Дан массив 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.