Question

Помогите пожалуйста) Ввести с клавиатуры N чисел. Найти произведение тех из них, которые принадлежат интервалу (-2;2). В Паскале.

Answer 1

Var n,pr,a:integer;
begin
   readln (n);
   pr:=1;
   repeat
      read(a);
      if (a>=-2) and (a<=2) then pr:=pr*a;
      n:=n-1;
   until n=0;
   write (pr);
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая позволяет ввести N чисел с клавиатуры и находит произведение тех из них, которые принадлежат интервалу (-2;2):

pascalCopy code
program Proizvedenie;

var
  N, i: integer;
  number: real;
  product: real;

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

  writeln('Введите количество чисел N:');
  readln(N);

  writeln('Введите ', N, ' чисел:');
  for i := 1 to N do
  begin
    readln(number);
    if (number > -2) and (number < 2) then
      product := product * number;
  end;

  writeln('Произведение чисел из интервала (-2;2): ', product);

  readln;
end.

Программа сначала запрашивает количество чисел N, затем в цикле просит ввести каждое из этих чисел. Если число принадлежит интервалу (-2;2), оно умножается на текущее значение переменной product. По завершении цикла программа выводит итоговое произведение чисел, которые попали в заданный интервал.

Надеюсь, это поможет! Если у вас возникнут ещё вопросы, не стесняйтесь задавать.