Правила редактирования документа word

Просто знать настройки для редактирования, а так порядка действий нет)

Var       a: array[0..10] of integer;       i, n, k: integer; begin       for i : = 0 to 10 do               a[i] : = i + 1;       for i : = 0 to 10 do       begin               a[i] : = a[10 - i];               println(a);       end; end. трасировка а [11,2,3,4,5,6,7,8,9,10,11] [11,10,3,4,5,6,7,8,9,10,11] [11,10,9,4,5,6,7,8,9,10,11] [11,10,9,8,5,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] [11,10,9,8,7,6,7,8,9,10,11] ответ 3

//pascal //заполнение массива случайными числами var   a: array[1..255] of integer;   i, sum, n: integer; begin write('введите n: '); readln(n); randomize; //в pascalabc.net можно убрать for i : = 1 to n do begin   a[i] : = random(21)-10; //случайные числа от -10 до 10   if ((a[i] mod 2 < > 0) and (a[i] < 0)) then sum : = sum + a[i];   write(a[i], ' '); end; writeln; writeln('сумма отрицательных и нечетных = ', sum); readln; end.  //pascal //заполнение массива с клавиатуры var   a: array[1..255] of integer;   i, sum, n: integer; begin write('введите n: '); readln(n); for i : = 1 to n do begin   write('a[', i, '] = '); readln(a[i]);   if ((a[i] mod 2 < > 0) and (a[i] < 0)) then sum : = sum + a[i]; end; writeln; writeln('сумма отрицательных и нечетных = ', sum); readln; end.