смена мест чисел в масиве

[Maxi'm]

Помогите надо решить задачу на Pascal ABC

Массив из 10 чисел заполнить с клавиатуры,поменять местами элементы стоящие на нечётных местах с элементами чётных чисел

Я знаю как поменять между собой числа в масиве а вот как пменять чётные на нечётные не могу не как понять , помогите.
P/s: ненадо писать услаждённый вариант надо что то типо токого

  Var A: array[1..10] of integer;
  i: integer;
Begin
      for i:=1 to 10 do
      readln(A[i]);
    writeln;
   if A[i]<0 then A[i]:=-1;
  for i:=1 to 10 do write (A[i]:4); 
end.

p.s.s: и если кому нетрудно ещё 1 задачу немогу решить: Из массива 'A" (20) элементов получить массив "B" (только с отрицательными элементами массива "A")

[Hacker19_90]

for i := 1 to 10 do
begin
    if ((i mod 2) <> 0) then
    begin
        massiv[i] := massiv[i] + massiv[i+1];
        massiv[i+1] := massiv[i] - massiv[i+1];
        massiv[i] := massiv[i] - massiv[i+1];
    end;
end;

[Maxi'm]

Hacker19_90,
и какая это задача и если можно полнастью а то что то не получаеться нечего

[Hacker19_90]

и какая это задача и если можно полнастью а то что то не получаеться нечего

а вы догадайтесь )

[Maxi'm]

Ну 1 и если её писат так

Var A:array [1..10] of integer; 
 i: integer;
begin
for i := 1 to 10 do
readln(A[i]);
    if ((i mod 2) <> 0) then
    begin
        A[i] := A[i] + A[i+1];
        A[i+1] := A[i] - A[i+1];
        A[i] := A[i] - A[i+1];
    end;
end.

то нечего не получаеться

[Maxi'm]

Вот нашёл обмен значениями типо

  B:=A[3]; A[3]:=A[12]; A[12]:=B;

Program T_T;
  Var A: array[1..12] of integer;
 B,i: integer;
Begin
      for i:=1 to 12 do
      readln(A[i]);
    writeln;
 B:=A[3]; A[3]:=A[12]; A[12]:=B;
  for i:=1 to 12 do write (A[i]:4) 
end.

ну тут 3 число меняеться с 12 а как сделать чтоб чётные на нечётные

[Hacker19_90]

Var A:array [1..10] of integer; 
 i: integer;
begin
for i := 1 to 10 do
readln(A[i]);
    if ((i mod 2) <> 0) then
    begin
        A[i] := A[i] + A[i+1];
        A[i+1] := A[i] - A[i+1];
        A[i] := A[i] - A[i+1];
    end;
end.

Ну с таким кодом у вас ничё не получится! ПРАВТЕ

[Hacker19_90]

program example;
uses crt;
Var 
    A:array [1..10] of integer; 
    i: integer;
begin
    clrscr;
    Writeln ('Введите массив');
    for i := 1 to 10 do
        readln(A[i]);
    for i := 1 to 10 do
        if ((i mod 2) <> 0) then
        begin
            A[i] := A[i] + A[i+1];
            A[i+1] := A[i] - A[i+1];
            A[i] := A[i] - A[i+1];
       end;
    Writeln ('Изменённый массив');
    for i := 1 to 10 do
        Write (A[i]:4);
    Writeln;
    ReadKey;
end.

[Maxi'm]

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

program example;
uses crt;
Var 
    A:array [1..10] of integer; 
    i: integer;
begin
    clrscr;
    Writeln ('Введите массив');
    for i := 1 to 10 do
        readln(A[i]);
    for i := 1 to 10 do
        if ((i mod 2) <> 0) then
        begin
            A[i] := A[i] + A[i+1];
            A[i+1] := A[i] - A[i+1];
            A[i] := A[i] - A[i+1];
       end;
    Writeln ('Изменённый массив');
    for i := 1 to 10 do
        Write (A[i]:4);
    Writeln;
    ReadKey;
end.

нето слишком сложно я ввыше дал пример как примерно должно быть а это слишком замудрённо