program znanija; var a: array[1..10] of integer; i: integer; begin for i:=1 to 10 do read (a[i]); for i:=1 to 10 do if a[i] mod 2 =0 then a[i]:=a[i]*2; for i:=1 to 10 do write (a[i], ' ') end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
