Решить в pascal ( и если можно блок схему ) . найти произведение элементов массива, кратных 3 и 9. размерность массива -10. заполнение массива осуществить случайными числами от 5 до 500.

107

316

Посмотреть ответы 2

Ответы на вопрос:

енот252

Информатика

4,6(31 оценок)

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. (блок-схему можно легко составить, исходя из программы)