Рассмотрим вариант решения задания из учебника Босова 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)
