Question

Дано 10 елементів табличної величини. Знайти добуток тих елементів табличної величини, які належать проміжку (-1;4]. програма лазаруз​

Answer 1

Ответ:

-4

Объяснение:

Ьстстаоаатао

Answer 2

Щоб знайти добуток елементів табличної величини, які належать проміжку (-1;4], потрібно перебрати всі елементи табличної величини і помножити ті, які задовольняють даному умові.

Ось програма на мові Lazarus, яка реалізує це завдання:

program FindProduct;
var
  numbers: array[1..10] of integer; // масив для зберігання чисел
  i: integer; // лічильник
  product: integer; // змінна для зберігання добутку
begin
  product := 1; // початкове значення добутку
  // заповнення масиву числами
  for i := 1 to 10 do
  begin
    write('Введіть число ', i, ': ');
    readln(numbers[i]);
  end;
  // обчислення добутку елементів, які належать проміжку (-1;4]
  for i := 1 to 10 do
  begin
    if (numbers[i] > -1) and (numbers[i] <= 4) then
      product := product * numbers[i];
  end;
  // виведення результату
  writeln('Добуток елементів, які належать проміжку (-1;4]: ', product);
end.

У цій програмі ми використовуємо масив `numbers`, щоб зберегти введені користувачем числа. Потім ми проходимо по всіх елементах масиву і, якщо число належить проміжку (-1;4], ми помножуємо його на поточний добуток. На кінці програми виводимо отриманий добуток.

Наприклад, якщо користувач введе наступні числа: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, то програма виведе добуток елементів, які належать проміжку (-1;4]: 24.