1отсортировать массив по возрастанию в столбцах 2 составить массив, элементами которого являются элементы данного массива, записанные в обратном порядке в строках и в столбцах ! !

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   // отсортировать массив по возрастанию в столбцах   for var j: =0 to a.colcount-1 do       a.setcol(j,a.col(j).orderby(x-> x).toarray);   writeln('*** массив, сортированный по колонкам ***');   a.println(4); writeln(4*a.colcount*'-');   // элементы, записанные в обратном порядке в строках и в столбцах   var b: =new integer[a.rowcount,a.colcount];   for var i: =0 to a.rowcount-1 do       b.setrow(i,a.row(i).reverse.toarray);   for var j: =0 to a.colcount-1 do       b.setcol(j,b.col(j).reverse.toarray);   writeln('*** созданный массив ***'); b.println(4) end. пример количество строк в массиве: 4 количество столбцов в массиве: 7 *** исходный массив [4,7] ***   -35  72 -60 -96  -3  13 -67   86  55 -58 -58 -25  83  79   -13  54  94 -87 -39    7  67   -64 -87  41  22  38  25  33 *** массив, сортированный по колонкам ***   -64 -87 -60 -96 -39    7 -67   -35  54 -58 -87 -25  13  33   -13  55  41 -58  -3  25  67   86  72  94  22  38  83  79 *** созданный массив ***   79  83  38  22  94  72  86   67  25  -3 -58  41  55 -13   33  13 -25 -87 -58  54 -35   -67    7 -39 -96 -60 -87 -64

ответ:

program calc;

var

  i, n, m: integer;

  s: double;

begin

  write ('количество членов ряда = ');

  readln (m);

  s : = 0.5;

  n : = 1;

  for i : = 2 to m do begin

    s : = s + n / (i * 2);

    n : = -n;

  end;

  writeln ('s = ', s : 20 : 20);

  readln;

end.