Найти произведение элементов массива, не принадлежащих отрезку [0; -5] - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Найти число элементов массива, принадлежащих отрезку [0;-5].массив состоит из 12 элементов.

Решение задачи: «Найти произведение элементов массива, не принадлежащих отрезку [0; -5]»

textual
Листинг программы
const n = 12;
var a: array [1..n] of integer;
    i, mul: integer;
begin
  randomize;
  mul := 1;
  for i := 1 to n do begin
    a[i] := random(21) - 10;
    write(a[i], ' ');
    if (a[i] < -5) or (a[i] > 0) then
      mul := mul * a[i];
  end;
  writeln;
  writeln(mul);
end.

Объяснение кода листинга программы

  1. Объявляется константа n со значением 12, которая определяет размер массива.
  2. Объявляется массив a размером 12, который будет содержать случайно сгенерированные числа.
  3. Объявляются две переменные i и mul, которые будут использоваться в цикле и для хранения произведения.
  4. Задается случайное начальное значение для переменной mul равное 1.
  5. В цикле for перебираются все элементы массива a.
  6. Каждый элемент массива a присваивается случайное число в диапазоне от -10 до 10 с шагом 1.
  7. С помощью функции write выводится каждый элемент массива a с пробелом после него.
  8. С помощью условного оператора if проверяется, принадлежит ли текущий элемент массива диапазону [-5; 0].
  9. Если текущий элемент массива не принадлежит указанному диапазону, то его значение умножается на переменную mul.
  10. После завершения цикла выводится новая строка с помощью функции writeln.
  11. Выводится значение переменной mul, которое является произведением элементов массива, не принадлежащих диапазону [-5; 0].

Оцени полезность:

13   голосов , оценка 3.769 из 5
Похожие ответы