Const n=10; var a:array[1..n] of integer; i,t:integer; begin Randomize; writeln(A:); for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:4); end; writeln; for i:=1 to n div 4 do begin t:=a[i]; a[i]:=a[n div 2-i+1]; a[n div 2-i+1]:=t; t:=a[n div 2+i]; a[n div 2+i]:=a[n-i+1]; a[n-i+1]:=t; end; writeln(new A:); for i:=1 to n do write(a[i]:4); writeln; end.
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
