Помогите пожалуйста решить задачу в Pascal ( и если можно Блок схему ) . Найти...

Question

Помогите пожалуйста решить задачу в Pascal ( и если можно Блок схему ) . Найти произведение элементов массива, кратных 3 и 9. Размерность массива -10. Заполнение массива осуществить случайными числами от 5 до 500. Срочном пожалуйста ребят !!

Answer 1

Const n=10
var a:array [1..10] of integer;
i:byte; p:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(495)+5;
p:=1
for i:=1 to 10 do
if (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];
writeln('Произведение =', p);
readln;
end.
(Блок-схему можно легко составить, исходя из программы)