очень надо (информатика 7 кл .)​

4ty5

Объяснение:

wfrgtehajsdmfkyudtsr5atewgyrhtujkdiFO;

//весьма слабое решение, но после перерыва мне простительно, хех. //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