Напишите программу, которая сортирует отдельно элементы массива с чётными и нечётными значениями. все элементы с нечётными значениями нужно отсортировать по возрастанию, а элементы с чётными значениями – по убыванию. при этом элементы каждой из групп (как чётные, так и нечётные) должны занимать то же множество позиций в массиве, что и до сортировки. входные данные первая строка содержит размер массива n . во второй строке через пробел n чисел – элементы массива. гарантируется, что 0 < n ≤ 100000 . выходные данные программа должна вывести все элементы отсортированного массива в одну строку, разделив их пробелами.

//весьма слабое решение, но после перерыва мне простительно, хех. //pascal abc.net v3.1 сборка 1219 var   ar,arodd,arnotodd: array of integer;   n,i,j,k1,k2: integer; begin   readln(n);   setlength(ar,n+1);   k1: =1;   k2: =1;   for i: =1 to n do   begin   readln(ar[i]);   if odd(i) then     begin     setlength(arodd,k1);     arodd[k1-1]: =ar[i];     inc(k1);     end     else     begin     setlength(arnotodd,k2);     arnotodd[k2-1]: =ar[i];     inc(k2);     end;   end;   sort(arodd);   sort(arnotodd);   reverse(arnotodd);   k1: =0;   k2: =0;   i: =0;   while i< > n do   begin   inc(i);     if odd(i) then     begin       ar[i]: =arodd[k1];       inc(k1);     end     else     begin       ar[i]: =arnotodd[k2];       inc(k2);     end;   write(ar[i],' ');   end; end. пример ввода: 5 1 2 3 4 5 пример вывода: 1 4 3 2 5 

(1-2+3)*4*5=40,

(-1+2+3+4)*5=40