14 для определения даты создания документа в текстовом процессоре ms word
необходимо использовать следующий путь в меню: «файл» - «свойства-
-1 «общие».
2документ».
3 «статистика».
- 4 «состав».
1.5 для установки вертикальной и горизонтальной полос прокрутки в текстовом
процессоре ms word необходимо использовать следующий путь в меню: «сервис» -
«параметры» -
- 1 «вид».
- 2 «общие».
- 3 «правка».
- 4 «печать».
16 для установки возможности печати белым текстом на синем фоне в текстовом
процессоре ms word необходимо использовать следующий путь в меню: «сервис» -
«параметры» -
- 1 «вид».
- 2 «общие».
- 3 «правка».
- 4 «печать».
17для установки режима черновой печати в текстовом процессоре ms word необходимо
использовать следующий путь в меню: «сервис» - «параметры» -
- 1 «вид».
- 2 «общие».
-3 «правка».
- 4 «печать».
18 для установки ориентации бумаги в текстовом процессоре ms word необходимо
использовать следующий путь в меню: «сервис» - «параметры страницы» -
- 1 «поля».
- 2 «размер бумаги».
- 3 «источник бумаги».
- 4 «mакет».
19для установки колонтитулов документа табличного процессора ms excel необходимо
использовать следующий путь в меню: «файл» - «параметры страницы» -
- 1 «страница».
- 2 «колонтитулы».
- 3 «поля».
- 4 «лист».
0 для установки ориентации текста в ячейке документа табличного процессора ms
excel необходимо использовать следующий путь в меню: «формат» - «ячейки» -
- 1 «число».
- 2 «выравнивание».
- 3 «шрифт».
- 4 «граница».

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a.Where((x,i)->i.IsOdd).Println; // для №1
  Writeln('Сумма =',a.Where((x,i)->i.IsEven).Sum); // для №2
end.

Пример
n= 13
-2 33 -49 49 50 -48 -11 27 47 10 17 22 38
33 49 -48 27 10 22
Сумма =90

№3
begin
  var a:=ArrRandom(15,-99,99); a.Println;
  a[a.IndexMax]:=0; a.Println
end.

Пример
34 -62 -42 98 44 -56 9 -69 85 55 -86 -32 83 -94 -19
34 -62 -42 0 44 -56 9 -69 85 55 -86 -32 83 -94 -19

// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var r:=Range(100,1000);
  Writeln('Сумма четных: ',r.Where(x->x.IsEven).Sum);
  Writeln('Произведение нечетных: ',
      r.Where(x->x.IsOdd).Aggregate(BigInteger(1),(x,y)->x*y))
end.

Результат
Сумма четных: 248050
Произведение нечетных: 36966544481545882391823230067805385433230065368829576574915631961875951438749314875520891958773465683198309929571713227368698968335498279329362186811130459340459701708143628528300666430241499963363995156875472920823879073796270530674091365457301367694608396460427864525856348256854709381753098272866558646536629626322781887765489939455189437187612366035802205337138797639784505362746964525946343706655765053639253274426077913592271079783658672906924798929301517243147811305368104203869922649498420017010079861449087671086945458864075701800348571856363660191891005745473487285185093263826285985161291672009840401500648116978749473368664914039649974635642316727953613512087059513022266150683907968562889468475751462634414790601916842157202699257750637933476610759209266207736659346632336154863491811161547515391373090783158239924403943495793328563207072814564054863234093687597907376741512012744430337566475185020879095658879920498365311358232252688878619532793045747038932448911025039177711271956296398164256480905110102487991832871736322981910580412208741937654427051439114361588088330674072568693330290186189385005707253104742148887065855866777951156097027659674751631779798799470881931483745574951171875