//fpcconst MAX = 20;var A: array [1 .. MAX] of byte; i: byte; mult: extended;BEGIN randomize; mult := 1; for i := 1 to MAX do begin A[i] := random(10) 1; mult := mult * A[i]; end; write('Произведение эл. массива = '); writeln(mult:0:0);END.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
