Информатика, 9 класс

program H4; var a:array[1..10] of integer; i,z,x,y,m,n:integer; begin for i:=1 to 10 do a[i]:=random(11); writeln('исходный массив: '); for i:=1 to 10 do write(a[i], ' '); writeln; z:=a[1]; a[1]:=a[2]; a[2]:=z; x:=a[3]; a[3]:=a[4]; a[4]:=x; y:=a[5]; a[5]:=a[6]; a[6]:=y; m:=a[7]; a[7]:=a[8]; a[8]:=m; n:=a[9]; a[9]:=a[10]; a[10]:=n; writeln('полученный массив: '); for i:=1 to 10 do write(a[i], ' '); writeln; end.