Ввести массив а[1], а [2], .... а[n] целых чисел. Поменять в нем местами соседние элементы, стоящие на четных местах, с элементами

[monokol]

Ввести массив а[1], а [2], .... а[n] целых чисел. Поменять в нем местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах.

[McFrey]

Const n=10;
Var  A:array [1..n] of integer;
     i,t:integer;
Begin 
Randomize;
for i:= 1 to n do
 begin
  A [i]:=random (101);
  write (a[i]:4);
 end;
writeln;
i:=1;
while i<n do
 begin
  t:=a[i];
  a[i]:=a[i+1];
  a[i+1]:=t;
  i:=i+2;
 end;
for i:=1 to n do write(a[i]:4);
end.

P.S.....код исправил, спасибо Serge_Bliznykov

[Serge_Bliznykov]

есть маленькая ошибочка...
цикл нужно "крутить" до i<n - т.к. при i=n
получается, что Вы хотите обменять i-й элемент с i+1 (а, очевидно, что такого нет - получается Range Check Error)...

[Hacker19_90]

-1 цикл мб?

Const n=10;
Var  A:array [1..n] of integer;
     i,t:integer;
Begin 
Randomize;
for i:= 1 to n do
begin
  A [i]:=random (101);
  write (a[i]:4);
    if (i >= 2) and (not(odd(i))) then
    begin
        t:=a[i];
        a[i]:=a[i-1];
        a[i-1]:=t;
    end;
end;
writeln;
for i:=1 to n do write(a[i]:4);
end.

[McFrey]

Сообщение от Serge_Bliznykov

есть маленькая ошибочка...
цикл нужно "крутить" до i<n - т.к. при i=n
получается, что Вы хотите обменять i-й элемент с i+1 (а, очевидно, что такого нет - получается Range Check Error)...

Признаю....пардон

[MooNDeaR]

#include <iostream>

using namespace std;

int main(void)
{
    const int size = 11;
    int mas[size] = {0};
    
    for(int i = 0; i < size; i++)
         cin >> mas[i];
    int i = 0;
    while(i < size)
    {
        if( (i+1) >= size) break;
        int temp = mas[i];
        mas[i] = mas[i+1];
        mas[i+1] = temp;
        i += 2;
    }

    for(int i = 0; i < size; i++)
       cout << mas[i] << ' ';
    cin.get();
}