Написать программу, которая в заданном одномерном массиве размерности N меняет местами соседние элементы, стоящие на чётных местах, с соседними элементами, стоящими на нечётных местах.

Question

Информатика

Богдана

29 июля, 14:08

Написать программу, которая в заданном одномерном массиве размерности N меняет местами соседние элементы, стоящие на чётных местах, с соседними элементами, стоящими на нечётных местах.

+5

Ответы (1)

Знаете ответ?

Гермес · Answer 1

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.