Randomize() Dim k As Integer Dim i As Integer Dim Summ as Long Summ=1 i = InputBox("Введите N") ReDim A(i) For k = 0 To i B(k) = Rnd() * -1000 500 If B(k) > 0 and B(k) mod 2 =0 then Summ=Summ*B(k) Next MsgBox(Summ)
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
