Дан массив:= 1,9,6,7
После сортировки массива(сортировка методом выбора)...

да я тоже ьак дцмаю соглачен аахах

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.