Рассмотрим вариант решения задания из учебника Босова, Аквилянов 9 класс, Просвещение: 3.80. Дан целочисленный массив из 12 элементов случайных целых чисел, принадлежащих интервалу {1;45}. Необходимо найти произведение элементов массива, кратных 5. Введите обозначения для: • имени массива; • индекса элемента массива; • элемента массива; • переменной, в которой хранится произведение элементов массива, кратных 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.
