Упр.3.80 ГДЗ Сборник упражнений Босова 7-9 класс (Информатика)

Задача

Введите обозначения для:
• имени массива;
• индекса элемента массива;
• элемента массива;
• переменной, в которой хранится произведение элементов массива, кратных 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;
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.

Оператор присваивания значения 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.