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