1. В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных

2.Задана последовательность из N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются простыми числами

НА ПИТОНЕ!

Var A:array[1..100] of integer;

    i,n,t:integer;

Begin

    write('Введите размерность: ');readln(n);

    writeln('Исходный массив: ');

    For i:=1 to n do

     Begin

      A[i]:=random(30)-15;

      write(A[i]:4);

     End;

    writeln;

    writeln('Преобразованный: ');

    i:=0;

    While i<n-1 do

     Begin

      inc(i,1);

      t:=A[i];

      A[i]:=A[i+1];

      A[i+1]:=t;

      inc(i,1);

     End;

     For i:=1 to n do

      write(A[i]:4);

    readln;

End.