Question

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

Answer 1

Ответ:

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.

Объяснение:

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