Создать программу: в заданном одномерном массиве переставить местами значения элементов, стоящих на четных местах со значениями элементов, стоящими на нечетных местах (т.е. 1 и 2, 3 и 4 и т.д.) 20

Const n=10; var i,p: integer; a: array[1..n] of integer; begin for i: =1 to n do begin   a[i]: =random(-10,10);   write(a[i],' ');   end; writeln(); i: =1; while(i< n) do begin   p: =a[i];   a[i]: =a[i+1];   a[i+1]: =p;   i+=2;   end; for i: =1 to n do   write(a[i],' '); end.

Реализация на c++: (при желании можно заменить названия в кавычках) #include < iostream> using namespace std; int main()  {     int a, b;     cin > > a > > b;     cout < < "summa: " < < a+b< < endl;     cout < < "raznost': " < < a-b< < endl;     cout < < "proizvedenie: " < < a*b< < endl;     cout < < "chastnoe: " < < a/b< < endl; }

Const n = 10; var       t: array [1..n] of integer;       c: array [1..n] of real;       i: integer;       sum: real; begin       sum : = 0;       for i : = 1 to n do       begin               readln(t[i], c[i]);               sum : = sum + t[i] * c[i];       end;       writeln;       writeln('sum = ',sum); end.