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

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

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

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], task task)

end;

z := 1;

for i := 1 to 12 do

if a[i] mod 5 = 0 then z := z * a[i];

writeln(task z=task, 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], task task)

end;

Блок обработки данных

z := 1;

for i := 1 to 12 do

if a[i] mod 5 = 0 then z := z * a[i];

Блок вывода результата

writeln(task z=task, z)