Упр.80 ГДЗ Рабочая тетрадь Босова 9 класс (Информатика)

1. Дан целочисленный массив из 12 элементов — случайных целых чисел, принадлежащих интервалу $$[10; 46]$$. Необходимо найти произведение элементов массива, кратных 5.

Нужно найти произведение тех элементов массива из 12 целых чисел, которые кратны 5. Для этого сначала заполняем массив случайными числами из интервала $$[10;46]$$, затем проверяем каждый элемент на кратность 5 и, если условие выполняется, умножаем его на переменную $$z$$.

Так как числа должны лежать в интервале $$[10;46]$$, используем выражение:

$$a[i] := random(35) + 10$$

Проверка кратности 5 записывается так:

$$a[i] \bmod 5 = 0$$

Переменную $$z$$ удобно сначала присвоить значение $$1$$, чтобы при умножении получить правильное произведение.

program Z_80;
var
  a: array [1..12] of integer;
  i, z: integer;
begin
  randomize;
  for i := 1 to 12 do
  begin
    a[i] := random(35) + 10;
    write(a[i], ‘ ‘);
  end;
  z := 1;
  for i := 1 to 12 do
    if a[i] mod 5 = 0 then z := z * a[i];
  writeln(‘ z=’, z);
end.

В программе массив сначала заполняется случайными числами и выводится на экран, затем вычисляется произведение всех элементов, кратных 5.

Ответ: программа на Pascal, находящая произведение элементов массива, кратных 5, приведена выше.