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

1. Напишите программу вычисления произведения ненулевых элементов массива. Проверьте работу программы на заданном массиве $$A=\{7, 25, 4.5, 0, 17, 61, -10, 0, 1, -4, 22\}$$.

Нужно перемножить все элементы массива, которые не равны нулю:

$$7 \cdot 25 \cdot 4.5 \cdot 17 \cdot 61 \cdot (-10) \cdot 1 \cdot (-4) \cdot 22$$

Нули в произведение не входят, поэтому их пропускаем.

Вычислим по шагам:

$$7 \cdot 25 = 175$$

$$175 \cdot 4.5 = 787.5$$

$$787.5 \cdot 17 = 13387.5$$

$$13387.5 \cdot 61 = 816637.5$$

$$816637.5 \cdot (-10) = -8166375$$

$$-8166375 \cdot 1 = -8166375$$

$$-8166375 \cdot (-4) = 32665500$$

$$32665500 \cdot 22 = 718641000$$

Программа на Pascal может выглядеть так:

program s4_v1_6;
var
  a: array[0..10] of real;
  i: integer;
  p: real;
begin
  p := 1;
  writeln(‘ввод массива’);
  for i := 0 to 10 do
  begin
    read(a[i]);
    if a[i] <> 0 then p := p * a[i];
  end;
  writeln(‘p=’, p);
end.

Ответ

$$718641000$$