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

Question

Leita

Информатика

7 июля, 14:09

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

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Евдокия Гордеева · Answer 1

Program summa;

var

sum, pr, k, i: integer;

A: array[1 ... 10] of integer;

begin

sum:=0;

pr:=1;

k:=0;

for i:=1 to 10 do

begin

sum:=sum+A[i];

pr:=pr*A[i];

k:=k+1;

end;

writeln ('сумма членов = ', sum,'; произведение = ', pr,'; среднее арифметическое = ', pr/k);

end.