Дан массив 10 элементов. поменять местами соседние элементы (1-йи 2-й, 3-й и 4-

var

 A: array [1..10] of integer;

 i : integer;

 temp : integer;

begin

Randomize;

for i := 1 to 10 do

begin

A[i] := random(30);

Write(A[i], ' ');

end;

Writeln;

i := 1;

while i < 10 do

begin

temp := A[i];

A[i] := A[i + 1];

A[i + 1] := temp;

inc(i, 2);

end;

Writeln('Новый массив: ');  

for i := 1 to 10 do Write(A[i], ' ');

end.

Объяснение: