Program ddd;
uses crt;
const n=10;
var a:array[1..n] of integer;
i,j:integer;
BEGIN
clrscr;
randomize;
writeln('Начальный массив');
for i:=1 to n do
begin
a[i]:=random(9)+1;
write(a[i]:3);
end;
for i:=1 to n do
if i mod 2=0 then
begin
j:=a[i];
a[i]:=a[i-1];
a[i-1]:=j;
end;
writeln;
writeln('Форматированный массив');
for i:=1 to n do
write(a[i]:3);
readln;
END.