Консультация № 136920
15.05.2008, 11:56
0.00 руб.
0 1 1
Уважаемые эксперты помогите пожалуйста в решении этой задачки -

Дан одномерный массив числовых значений насчитывающий n элементов.
Поменять местами элементы, стоящие на четных и нечетных местах :
а(1) с а(2), а(3) с а(4)
и т.д.
n НЕ константа.
При вводе нечетного количества чисел последнее число место не меняет.
Количество элементов в массиве задается при включении программы.

Обсуждение

давно
Профессор
401888
1232
15.05.2008, 22:20
общий
это ответ
Здравствуйте, Vinaction!
Решение задачи в приложении.

Приложение:
uses crt;var a:array[1..50]of integer; n,i,x:integer;beginclrscr;write(‘n=‘);readln(n);Writeln(‘Ishodnyj massiv:‘);for i:=1 to n do begin a[i]:=i; write(a[i],‘ ‘); end;writeln;i:=1;while i<=n-1 do begin x:=a[i]; {меняем местами два соседних элемента} a[i]:=a[i+1]; a[i+1]:=x; i:=i+2; {увеличиваем счетчик на два, переходим к следующей паре} end;writeln(‘Rezultat:‘);for i:=1 to n dowrite(a[i],‘ ‘);readlnend.
Форма ответа