Question

Дан массив B из 15 элементов целого типа. Написать программу по нахождению суммы и произведения всех элементов массива. Паскаль. Заранее спасибо за помощь.

Answer 1

program sipcm;

uses

crt;

var

b: array [1..15] of integer;

var

i, s, pr: integer;

begin

s := 0;

pr := 1;

writeln('Заполните массив:');

for i := 1 to 15 do

begin

write('b[', i, '] = ');

readln(b[i]);

end;

for i := 1 to 15 do

begin

s := s + b[i];

pr := pr * b[i];

end;

writeln('Сумма: ', s, ' ; Произведение: ', pr);

readln;

end.

Answer 2

Конечно, вот пример кода на языке Pascal, который находит сумму и произведение всех элементов массива:

pascalCopy code
program ArraySumAndProduct;
var
  B: array[1..15] of Integer;
  i, sum, product: Integer;
begin
  // Заполнение массива B
  for i := 1 to 15 do
  begin
    Write('Введите элемент B[', i, ']: ');
    Readln(B[i]);
  end;

  // Инициализация переменных
  sum := 0;
  product := 1;

  // Нахождение суммы и произведения
  for i := 1 to 15 do
  begin
    sum := sum + B[i];
    product := product * B[i];
  end;

  // Вывод результатов
  Writeln('Сумма всех элементов: ', sum);
  Writeln('Произведение всех элементов: ', product);
end.

Скопируйте этот код в свою среду разработки Pascal и запустите его. Программа попросит вас ввести 15 целых чисел, после чего выведет сумму и произведение всех элементов массива B.