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

Произведение ненулевых элементов равно:…………….
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

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

$$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$$