Задание_4. Скопируйте из папки Lexi файлы n, m, s на Ваш носитель информации. Объедините тексты указанных файлов, получив новый объединенный документ. Задайте нумерацию страниц в этом документе (начальный номер-1). Вставьте нижние колонтитулы различных лекций следующий текст - ”Lexi1.doc” название файла первой лекции в разделе 1, и т.д. А верхний колонтитул номер вашего варианта, отцентрируйте колонтитулы и выделите жирным шрифтом. В документе расставьте стили, заголовки 1,2, 3 уровня для вставки оглавления. В начале объединенного документа создайте оглавление. (Оглавление добавляется например: с Вставка Ссылка Оглавление и указателиВкладка «Оглавление»). Или WORD 2013 через закладку СсылкиОглавление. Разделите весь текст (не включая оглавление) на 2 одинаковые колонки, расстояние между которыми указано в табл. 1.2. Перед оглавлением документа вставьте любой рисунок с изображением компьютера, размером 1,5см+0,1*N (где N номер вашего варианта). Сохраните созданный документ под именем согласно правилам, указанным выше в п.1 пр.: Контр_4_вар_N.doc.

Delphivar  a1, a2: array of integer;  n, c, i: integer; procedure PrintDescending(a: array of integer); var i, j, max: integer; begin  for i := 0 to Length(a) - 1 do  begin    for j := 0 to Length(a) - 1 do      if a[j] > a[max] then max := j;    Write(a[max], ' ');    a[max] := -10001;  end; end; begin  //Запрашиваем ввод длины массива:  Write('Введите длину массива: ');  Read(n);    //Устанавливаем длину массивов:  SetLength(a1, n);  SetLength(a2, n);    //Заполняем первый массив случайными числами:  for i := 0 to n - 1 do    a1[i] := Random(201) - 100;    //Заполняем второй массив только нечётными элементами первого:  for i := 0 to n - 1 do    if Abs(a1[i]) mod 2 = 1 then      begin      a2[c] := a1[i];      c := c + 1;    end;    //Урезаем второй массив:  SetLength(a2, c);    //Выводим первый массив:  for i := 0 to n - 1 do    Write(a1[i], ' ');  Writeln;    //Выводим второй массив в порядке убывания:  if c = 0 then Write('Нечётных элементов нет.')  else PrintDescending(a2); end.

Пример работы:

Delphivar  a1, a2: array of integer;  n, c, i: integer; procedure PrintDescending(a: array of integer); var i, j, max: integer; begin  for i := 0 to Length(a) - 1 do  begin    for j := 0 to Length(a) - 1 do      if a[j] > a[max] then max := j;    Write(a[max], ' ');    a[max] := -10001;  end; end; begin  //Запрашиваем ввод длины массива:  Write('Введите длину массива: ');  Read(n);    //Устанавливаем длину массивов:  SetLength(a1, n);  SetLength(a2, n);    //Заполняем первый массив случайными числами:  for i := 0 to n - 1 do    a1[i] := Random(201) - 100;    //Заполняем второй массив только нечётными элементами первого:  for i := 0 to n - 1 do    if Abs(a1[i]) mod 2 = 1 then      begin      a2[c] := a1[i];      c := c + 1;    end;    //Урезаем второй массив:  SetLength(a2, c);    //Выводим первый массив:  for i := 0 to n - 1 do    Write(a1[i], ' ');  Writeln;    //Выводим второй массив в порядке убывания:  if c = 0 then Write('Нечётных элементов нет.')  else PrintDescending(a2); end.

Пример работы: