Question

Найти произведение элементов в массиве из 10 элементов заданных используя рандом от 1 до 100 Паскаль

Answer 1

var

 a: array[1..10] of integer;

 i,s: integer;

 begin

   s:=1;

   for i:= 1 to 10 do

   begin

     a[i]:=random(1,100);

     s:=s*a[i];

   end;

   writeln(s);

 end.

Answer 2

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

pascalCopy code
program MultiplyArrayElements;
var
  arr: array[1..10] of Integer;
  i, product: Integer;
begin
  // Инициализируем генератор случайных чисел
  Randomize;

  // Заполняем массив случайными числами от 1 до 100
  for i := 1 to 10 do
  begin
    arr[i] := Random(100) + 1;
    writeln('Элемент ', i, ': ', arr[i]);
  end;

  // Находим произведение элементов массива
  product := 1;
  for i := 1 to 10 do
    product := product * arr[i];

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

Этот код создает массив arr из 10 элементов, заполняет его случайными числами от 1 до 100 и затем находит и выводит произведение всех элементов массива.