Упр.3.80 ГДЗ Сборник упражнений Босова 7-9 класс (Информатика)
- Дан целочисленный массив из 12 элементов случайных целых чисел, принадлежащих интервалу $$\{1;45\}$$. Необходимо найти произведение элементов массива, кратных 5.
Введите обозначения для:
- имени массива;
- индекса элемента массива;
- элемента массива;
- переменной, в которой хранится произведение элементов массива, кратных 5.
Запишите оператор присваивания значения i-му элементу массива.
Запишите условие кратности 5 i-го элемента массива.
Запишите программу в соответствии со следующей структурой.
Обозначим:
- a — имя массива;
- i — индекс элемента массива;
- a[i] — элемент массива;
- z — переменная, в которой хранится произведение элементов массива, кратных 5.
Оператор присваивания значения $$i$$-му элементу массива:
a[i] := random(45) + 1;
Условие кратности 5 $$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(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.
Ответ
a — имя массива; i — индекс элемента массива; a[i] — элемент массива; z — произведение элементов массива, кратных 5.
a[i] := random(45) + 1;
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(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.
