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

a – имя массива
i – индекс элемента массива
a[i] – элемент массива
z – переменная, в которой хранится произведение элементов массива, кратных 5
Присвоение значения i-му элементу массива:
a[i]:=random(35)+10
Условие кратности i-го элемента массива:
a[i] mod 5 =0
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.
Заголовок программы
program Z_80;
Раздел описания переменных
var
a: array [1..12] of integer;
i, z: integer;
Программный блок
Блок ввода данных
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)

Нужно найти произведение тех элементов массива из 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, приведена выше.