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