Question

Pascal. Составить программу нахождения произведения всех элементов массива A[1..20], содержащего случайные числа от 1 до 10

Answer 1

//fpc

const

MAX = 20;

var

A: array [1 .. MAX] of byte;

i: byte;

mult: extended;

BEGIN

randomize;

mult := 1;

for i := 1 to MAX do

begin

A[i] := random(10) + 1;

mult := mult * A[i];

end;

write('Произведение эл. массива = ');

writeln(mult:0:0);

END.

Answer 2

Для написания программы на языке программирования Pascal, которая находит произведение всех элементов массива A[1..20], содержащего случайные числа от 1 до 10, следуйте приведенным ниже инструкциям:

pascalCopy code
program MultiplyArrayElements;

const
  ARRAY_SIZE = 20;

var
  A: array[1..ARRAY_SIZE] of Integer;
  i: Integer;
  product: Integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;

  // Заполнение массива случайными числами от 1 до 10
  for i := 1 to ARRAY_SIZE do
    A[i] := Random(10) + 1;

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

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

  // Вывод результата
  writeln('Массив A:');
  for i := 1 to ARRAY_SIZE do
    write(A[i], ' ');

  writeln;
  writeln('Произведение всех элементов массива: ', product);

  readln;
end.

Программа сначала заполняет массив A[1..20] случайными числами от 1 до 10, а затем вычисляет произведение всех его элементов и выводит результат на экран. Обратите внимание, что при каждом запуске программы значения в массиве будут разными из-за использования генератора случайных чисел.