вико2006

05.06.2020 22:54 •  Информатика

Составить блок схему к 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.