Помогите составить блок схему к задачки Pascalprogram sdasdas;var a:array [1..10] of

Помогите составить блок схему к задачки Pascal
program sdasdas;
var
a:array [1..10] of integer;
p,i:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(495)+5;
p:=1;
begin
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);
end;
readln;
end.

Кристина Волощик 2019-08-26 18:29:56

Превосходнее бы ты блок-схемы живописать обучался, а не задницы в аватарки вставлять.