4. В заданном одномерном массиве поменять местами соседние
элементы, стоящие на четных местах, с
элементами, стоящими на нечетных местах.
Решение
program
lab4;
type
mas=array[1..100] of integer;
var
a:mas;
i,n,s:integer;
begin
randomize;
writeln('Vvedite
n');
readln(n);
for i:=1
to n do
a[i]:=random(10);
for i:=1
to n do
write(a[i],' ');
writeln;
{
for i:=1
to n-1 do
if odd(i) then
begin
s:=a[i];
a[i]:=a[i+1];
a[i+1]:=s;
end;
}
for i:=1
to n do
if (i mod 2 = 0) then
begin
s:=a[i];
a[i]:=a[i-1];
a[i-1]:=s;
end;
for i:=1
to n do
write(a[i],' ');
readln;
end.