// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var n:=ReadInteger('n='); var a:=ArrRandom(n,10,40); a.Println; var b:=a.Select(e->2*e 1).ToArray; b[0]:=a[0]; b[n-1]:=a[n-1]; b.Println end.
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
