Упр.80 ГДЗ Рабочая тетрадь Босова 9 класс (Информатика)
Решение #1
![Изображение 80. Дан целочисленный массив иа 12 элементов случайных целых чисел, принадлежащих интервалу [10; 46]. Необходимо найти произведение элементов массива, кратных 5.a –...](/reshebniki/informatika/9/bosova/images/80.png "Изображение ответа 80. Дан целочисленный массив иа 12 элементов случайных целых чисел, принадлежащих интервалу [10; 46]. Необходимо найти произведение элементов массива, кратных 5.a –...")
Рассмотрим вариант решения задания из учебника Босова 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], ' ')
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)
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
