Задание 7 Вариант 2 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

7. Напишите программу вычисления произведения ненулевых элементов массива B[1..N], принадлежащих промежутку [-20, 20]. Проверьте работу программы на заданном массиве В = {63, 7.2, -4.5, 0, -10, 14, -310, 50, 11, -14, 5}.

Произведение ненулевых элементов, принадлежащих промежутку [-20, 20], равно:......

program s4_v2_7;

const

n = 11;

var

b: array[1..n] of real;

i: integer;

p: real;

begin

p := 1;

writeln(taskввод массиваtask);

//randomize;

for i := 1 to n do

begin

readln(b[i]);

//b[i] := random * 20 - 10;

//writeln(taskb[task, i, task]=task, b[i])

end;

for i := 1 to n do

if b[i] 0 then

if (b[i] >= -20) and (b[i]

writeln(taskp=task, p:6:2);

end.

Произведение ненулевых элементов, принадлежащих промежутку [-20, 20], равно: -3492720.00

В программе предусмотрен (в комментариях) ввод массива через генератор случайных чисел. Можно воспользоваться им, для этого убрать // и закомментировать ввод с клавиатуры. Для изменения количества элементов измените n.