В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими (программа Паскаль)
Вопрос посетителя
В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах.
Ответ эксперта
Var A:array[1..100] of integer;
i,n,t:integer;
Begin
write(‘Введите размерность: ‘);readln(n);
writeln(‘Исходный массив: ‘);
For i:=1 to n do
Begin
A[i]:=random(30)-15;
write(A[i]:4);
End;
writeln;
writeln(‘Преобразованный: ‘);
i:=0;
While i
inc(i,1);
t:=A[i];
A[i]:=A[i+1];
A[i+1]:=t;
inc(i,1);
End;
For i:=1 to n do
write(A[i]:4);
readln;
End.