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.