Написать программу, которая в заданном одномерном массиве размерности n меняет местами соседние элементы, стоящие на чётных местах, с соседними элементами, стоящими на нечётных местах.
) В числе не меньше двух цифр, которые меньше шести. Следовательно, в числе две цифры в диапазоне от 0 до 5, а третья может быть и больше. 2) В числе не меньше двух четных цифр. Следовательно, в числе одно цифра может быть и нечетной. 3) Если число должно быть наибольшим, то его старшая цифра должна быть не меньше остальных. Учитывая 1) и 2) выбираем в качестве старшей цифры девятку. Тогда две оставшиеся меньше шести и обе четные. 4) С учетом того, что число должно быть наибольшим, выберем цифры четыре.
var a:array[1..10] of integer;
i,tmp:integer;
begin cls;
for i:=1 to 10 do a[i]:=i;
for i:=1 to 10 do
begin
if i mod 2 = 1 then
begin
tmp:=a[i];
a[i]:=a[i+1];
a[i+1]:=tmp;
end;
end;
for i:=1 to 10 do
write(a[i], ' ');
end.