Question

Паскаль. Найти произведения одномерного массива

Answer 1

В языке программирования Паскаль обработка одномерных массивов достаточно проста. Давайте рассмотрим пример написания программы, которая находит произведение элементов одномерного массива.

Пример программы на Паскале:

program MultiplyArrayElements;

const
  N = 5; // Размер массива

var
  arr: array[1..N] of Integer; // Объявление массива
  product: Integer; // Переменная для хранения произведения
  i: Integer; // Переменная для цикла

begin
  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to N do
  begin
    write('arr[', i, ']: ');
    readln(arr[i]);
  end;

// Инициализация переменной произведения
  product := 1;

// Вычисление произведения элементов массива
  for i := 1 to N do
  begin
    product := product * arr[i];
  end;

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

// Задержка экрана (для того чтобы увидеть результат в консоли)
  readln;
end.

В этом примере программа запрашивает у пользователя ввод элементов массива, затем вычисляет произведение этих элементов и выводит результат. Массив `arr` объявлен с использованием ключевого слова `array` и указывается его размерность (`1..N`). После ввода элементов массива, программа использует цикл для вычисления произведения элементов.

Обратите внимание, что размер массива (`N`) и его тип (`Integer` в данном случае) могут быть изменены в соответствии с вашими потребностями.