1. в заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных 2.задана последовательность из n вещественных чисел. вычислить сумму чисел, порядковые номера которых являются простыми числами на питоне!

//pascalabc.net 3.2 сборка 1318 var   x,x1,i: integer;   xs: string;   c: char; begin readln(x); xs: =inttostr(x); for i: =1 to length(xs) div 2 do   begin     c: =xs[i];     xs[i]: =xs[length(xs)-i+1];     xs[length(xs)-i+1]: =c;   end; x1: =strtoint(xs); if x1> x then writeln(x1,'> ',x) else   if x1< x then writeln(x,'> ',x1) else     writeln(x1,'=',x); end. пример ввода: 1230 пример вывода: 1230> 321

Всё, что смог var  a,b,c: integer;     begin write('введите три целых числа через пробел: '); read(a, b, c); if a=b then  writeln('yes')    else writeln('no');         if b=c then          writeln('yes')            else writeln('no');                 if a=c then                  writeln('yes')                    else writeln ('no'); end.