var a, b, c: array[1..n] of integer; i, j, kb, kc, t: integer;
begin Randomize; Writeln('Исходный массив'); kb := 0; kc := 0; for i := 1 to n do begin a[i] := random(101) - 50; Write(a[i]:4); if a[i] < 0 then begin Inc(kb); b[kb] := a[i] end else begin Inc(kc); c[kc] := a[i] end end; Writeln; { теперь массив b содержит отрицательныые элементы, с - остальные } for i := 1 to kb - 1 do for j := 1 to kb - 1 do if b[j] > b[j + 1] then begin t := b[j]; b[j] := b[j + 1]; b[j + 1] := t end; { сливаем массивы b и c в массив а} i := 0; for j := 1 to kb do begin i := i + 1; a[i] := b[j] end; for j := 1 to kc do begin i := i + 1; a[i] := c[j] end; Writeln('Результирующий массив'); for i := 1 to n do Write(a[i]:4); Writeln end.
Заголовки позволяют обратить внимание на текст и пользователям искать в документе нужную информацию. Добавлять заголовки проще всего с стилей заголовка. 2)WordArt — это коллекция текстовых стилей, которые можно добавлять в публикации для создания декоративных эффектов, таких как тени или отраженный текст. WordArt можно использовать для добавления в документ специальных текстовых эффектов. 3) На панели инструментов Объекты нажмите кнопку Вставить объект WordArt . В списке Коллекция WordArt выберите нужный объект WordArt, а затем нажмите кнопку ОК. Введите текст в поле Текст. Для изменения текста в объекте WordArt дважды щелкните объект, а затем введите новый текст в поле Текст 4) На панели инструментов переходим на вкладку «Разметка страницы». В разделе «Фон страницы» выбираем «Границы страниц» (на рисунке сверху-справа). Перед нами возникнет окно «Границы и заливка», где на вкладке «Страница» в левом части выбираем раздел «Рамка». В правой части этого раздела выбираем тип, ширину, цвет рамки. 5)Если мы говорим о географических границах, а не политических, то существует четыре типа границ: водная, воздушная, сухопутная и недры. Для целей политической географии выделяются три вида политических границ: водная, сухопутная и смешанная (водная-сухопутная).
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку