Помогите составить блок схему к задачи 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=...
Помогите составить блок схему к задачи 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.
Гость
Ответ(ы) на вопрос:
Не нашли ответ?
Похожие вопросы