Упр.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.