Question

ПАСКАЛЬ Дан одномерный массив A[10]. Элементы массива – это случайные числа большие 0. Написать программу, которая будет находить произведение элементов массива, лежащих в интервале [20, 70].

Answer 1

Ответ:

var i,s: integer;

begin

s:=1;

randomize();

for i:=1 to 10 do

 begin

 A[i]:=random(100);

 write(A[i],' ');

 if (A[i]>=20) and (A[i]<=70) then

 s:=s*A[i];

 end;

writeln();

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

end.

Answer 2

Вот пример программы на языке Pascal, которая находит произведение элементов массива A, лежащих в интервале [20, 70]:

pascalCopy code
program ProizvedenieMassiva;

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

var
  A: array[1..N] of Integer; // Одномерный массив
  i: Integer; // Счетчик
  proizvedenie: Integer; // Переменная для хранения произведения

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

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

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

  // Нахождение произведения элементов массива в интервале [20, 70]
  proizvedenie := 1; // Инициализация произведения
  for i := 1 to N do
  begin
    if (A[i] >= 20) and (A[i] <= 70) then
      proizvedenie := proizvedenie * A[i];
  end;

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

  readln;
end.

Программа сначала инициализирует генератор случайных чисел, затем заполняет массив A случайными числами в диапазоне от 1 до 100. Затем она выводит элементы массива на экран и находит произведение элементов, лежащих в интервале [20, 70]. Результат выводится на экран.