7класс
Номер 3.80, ГДЗ по информатике за 9 класс к сборнику задач и упражнений Босовой
Номер 3.80. Дан целочисленный массив из 12 элементов случайных целых чисел, принадлежащих интервалу {1;45}. Необходимо найти произведение элементов массива, кратных 5.
Введите обозначения для:
имени массива;
индекса элемента массива;
элемента массива;
переменной, в которой хранится произведение элементов массива, кратных 5.
Запишите оператор присваивания значения i-му элементу массива.
Запишите условие кратности 5 i-го элемента массива.
Запишите программу в соответствии со следующей структурой.
Введите обозначения для:
имени массива;
индекса элемента массива;
элемента массива;
переменной, в которой хранится произведение элементов массива, кратных 5.
Запишите оператор присваивания значения i-му элементу массива.
Запишите условие кратности 5 i-го элемента массива.
Запишите программу в соответствии со следующей структурой.
a - имя массива
i - индекс элемента массива
a[i] - элемент массива
z - переменная, в которой хранится произведение элементов массива, кратных 5
Присвоение значения i-му элементу массива:
a[i] := random (45) + 1;
Условие кратности i-го элемента массива:
a[i] mod 5 =0
Заголовок программы
program Z_80;
Раздел описания переменных
var
a: array [1..12] of integer;
i, z: integer;
a: array [1..12] of integer;
i, z: integer;
Программный блок
Блок ввода данных
randomize;
for i := 1 to 12 do
begin
a[i] := random(45) + 1;
for i := 1 to 12 do
begin
a[i] := random(45) + 1;
Блок вывода данных
write(a[i], ' ')
end;
end;
Блок обработки данных
z := 1;
for i := 1 to 12 do
if a[i] mod 5 = 0 then z := z * a[i];
for i := 1 to 12 do
if a[i] mod 5 = 0 then z := z * a[i];
Блок вывода результата
writeln(' z=', z)
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(45) + 1;
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.
