Question

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

Answer 1

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.

Answer 2

Для решения данной задачи нахождения суммы, произведения и среднего арифметического элементов массива B, можно использовать следующий алгоритм на языке Паскаль:

program ArrayOperations;
var
  B: array[1..10] of integer;
  i, sum, product: integer;
  average: real;
begin
  sum := 0;
  product := 1;

// Заполнение массива B
  for i := 1 to 10 do
  begin
    // Ввод элементов массива B
    write('Введите элемент B[', i, ']: ');
    readln(B[i]);

// Вычисление суммы и произведения
    sum := sum + B[i];
    product := product * B[i];
  end;

// Вычисление среднего арифметического
  average := sum / 10;

// Вывод результатов
  writeln('Сумма элементов массива B: ', sum);
  writeln('Произведение элементов массива B: ', product);
  writeln('Среднее арифметическое элементов массива B: ', average);

readln;
end.

Алгоритм начинается с объявления переменных и массива B. Затем, с помощью цикла, заполняется массив B и одновременно вычисляются сумма и произведение его элементов. После завершения цикла, вычисляется среднее арифметическое элементов массива B. Наконец, результаты выводятся на экран.

Примечание: В данном алгоритме предполагается, что пользователь будет вводить целочисленные значения для элементов массива B. Если требуется обработка вещественных чисел, необходимо изменить тип переменной average на real и использовать функцию readln для ввода вещественных значений.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать их.