Написать программу, которая в заданном одномерном массиве размерности N меняет местами соседние элементы, стоящие на чётных местах, с соседними элементами, стоящими на нечётных местах.
Написать программу, которая в заданном одномерном массиве размерности N меняет местами соседние элементы, стоящие на чётных местах, с соседними элементами, стоящими на нечётных местах.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы