Question

Срочно!!!!! для к.р. на завтра .Сформировать массив из 25 случайных чисел из диапазона от 20 до 120 .Найти произведение элементов массива с пятнадцатого по двадцатый включительно.B PASCAL

Answer 1

var a,b,c:array[1..100] of integer;

i,n:integer;

begin

     n:=1;

     for i:=1 to 25 do

     begin

          a[i]:=random(20)+100;

          write(a[i],' ');

          if (i > 14) and (i <21) then n:=n*a[i];

     end;

     writeln;

     write('Произведение=',n); writeln;

end.

Answer 2

Для создания массива из 25 случайных чисел в диапазоне от 20 до 120 и нахождения произведения элементов с пятнадцатого по двадцатый включительно в Pascal, выполните следующий код:

pascalCopy code
program RandomArrayProduct;

const
  ArraySize = 25;
  LowerBound = 20;
  UpperBound = 120;

var
  RandomArray: array[1..ArraySize] of Integer;
  i: Integer;
  Product: Int64; // Int64 to handle large product values

begin
  // Initialize random number generator
  Randomize;

  // Fill the array with random numbers
  for i := 1 to ArraySize do
    RandomArray[i] := Random(UpperBound - LowerBound + 1) + LowerBound;

  // Output the generated array
  writeln('Сгенерированный массив:');
  for i := 1 to ArraySize do
    write(RandomArray[i], ' ');

  // Calculate the product of elements from the fifteenth to the twentieth (inclusive)
  Product := 1; // Initialize the product variable to 1
  for i := 15 to 20 do
    Product := Product * RandomArray[i];

  // Output the result
  writeln;
  writeln('Произведение элементов с 15-го по 20-ый включительно: ', Product);

end.

Заметки:

1. В приведенном коде используется Int64 для хранения произведения элементов, чтобы обеспечить возможность работы с большими значениями.
2. Обратите внимание, что индексация в Pascal начинается с 1, поэтому элементы массива будут доступны с 1 до ArraySize включительно.