Задан одномерный массив из целых чисел. Найти сумму и произведение элементо этого массива. написать программу в Паскаль абс

Для решения задачи, которая заключается в нахождении суммы и произведения элементов одномерного массива целых чисел, мы можем написать программу на языке Pascal.

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

program SumAndProduct;
var
  arr: array[1..100] of integer;  // Объявляем массив с максимальным размером 100
  i, n: integer;                  // Итерируемая переменная и размер массива
  sum: integer;                  // Переменная для хранения суммы
  product: longint;              // Переменная для хранения произведения

begin
  sum := 0;                       // Инициализация суммы
  product := 1;                  // Инициализация произведения

  writeln('Введите количество элементов массива:');
  readln(n);                     // Считываем размер массива

  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    readln(arr[i]);              // Считываем элементы массива
    sum := sum + arr[i];         // Считаем сумму
    product := product * arr[i];  // Считаем произведение
  end;

  writeln('Сумма элементов массива: ', sum);
  writeln('Произведение элементов массива: ', product);
end.

Объяснение кода:

1. Мы объявили массив arr и переменные для суммы и произведения.
2. Пользователь вводит количество элементов массива, затем сам массив.
3. В цикле мы суммируем элементы массива и одновременно умножаем их, чтобы получить произведение.
4. Наконец, программа выводит сумму и произведение.

Этот код демонстрирует основные принципы работы с массивами, вводом и выводом данных в Pascal, и может быть адаптирован под ваши нужды. Успехов в учебе!