Дан целочисленный массив из 12 элементов случайных целых чисел ,принадлежащих интервалу [10; 45[.необходимо найти произведение элементов массива ,кратных 5.

можно, , с подробным объяснением, каждый шаг.

Program Massiv; //Заголовок программы

const n=12;

var i,m,p:integer; s: array[1..n] of  integer;

begin

p:=1;

for i :=1 to n do

s[i]:= random (10,44);

for i :=1 to n do begin

if (s[i] mod 5) = 0 then p:= p * s[i];

end;

writeln(s);

if p = 1 then  

write('Нет элементов кратных 5')

else

write('p = ', p);

end.

Объяснение:

программа описана в файле ворд