Взаданном одномерном массиве поменять местами соседние элементы. напишите программу на паскале, заранее !

Var   n, i, c  : integer;   a : array [1..1000] of integer; begin   read (n);     for i : = 1 to n do read (a[i]);   for i : = 1 to n div 2 do   begin     c : = a[i*2];     a[i*2] : = a[i*2-1];     a[i*2-1] : = c;   end;   for i : = 1 to n do     write (a[i], ' '); end.

Вот наполнение массива рандомом. если нужно наполнение с клавиатуры, то вместо  a[i,j]: =random(100)-50;   необходимо поставить read(a[i,j]); const n=3; m=4; var a: array[1..n,1..m] of integer; var i, j, count: integer; begin  count: =0;   for i: =1 to n do begin  for j: =1 to m do begin  a[i,j]: =random(100)-50;   write(a[i,j]: 3, ' ');   end;   writeln;   end;   for i: =1 to n do    for j: =1 to m do begin  if (a[i,j]< 0) and (a[i,j] mod 2 < > 0) then count: =count+1;   end;   writeln('количество отрицательных нечетных элементов: ', count); end.

Ввод с клавиатуры одномерного массива целых чисел и вывод его элементов на экран с противоположным знаком program massiv2;       const n=10;     type {  раздел описания типов переменных. эти типы определяет сам пользователь, то есть мы определяем тип одномерного массива из n целых чисел  }        mas=array [1..n] of integer; {  1..n - тип индекса; для индекса выбран интервальный тип. то есть интервал целых чисел от 1 до n. где n определено в разделе const  }    var            line: mas; {  line - одномерный массив, его тип определен нами как mas  }            i: integer; {переменная, хранящая индекс элемента массива, к которому идет обращение  }begin{  ввод массива с клавиатуры  }    for i: =l to n do {  обращение к элементам массива происходит в цикле, по очереди  }        begin {  начало цикла ввода элементов массива  }            write('введите элемент с индексом ' ,i,' : ');             readln(line[i]) {  обращаемся к i-му элементу массива (line[l],line[2] и т. д.)}        end; {  конец цикла ввода элементов массива  }{  вывод элементов происходит также в цикле: }    for i: =l to n do {  перебираем все n элементов массива  }        write(-line[i]: 5); {  10 элементов выводятся в строку. выводим все элементы массива с противоположным знаком  }    writeln; {  после вывода массива элементов - переход на новую строку  }      readln  end.