Question

Массив из 10 целых чисел случайным образом сформирован на промежутке [10;50]. Найдите произведение нечётных и кратных 5 элементов в массиве

Answer 1

var i,res,k:integer;

a:array[1..10] of integer;

begin

k:=0;

for i:=1 to 10 do

a[i]:=random(10,50);

res:=1;

for i:=1 to 10 do

if (a[i] mod 2=1) and (a[i] mod 5=0) then begin

res:=res*a[i];

k:= k+1;

end;

if k=0 then write('Таких чисел нет') else

write(res);

end.