var i, k, max: integer; a: array[1..N] of integer;
begin Writeln('Исходные данные'); Randomize; for i := 1 to N do begin k := random(100) - 50; a[i] := k; write(k:4) end; writeln; max := -32768; //меньше не бывает for i := 1 to N do if max < a[i] then max := a[i]; writeln('Максимальное из чисел равно ', max) end.
Тестовый пример:
Исходные данные 39 -42 -3 3 -37 -32 25 43 24 -17 Максимальное из чисел равно 43
Если создаваемый документ содержит много страниц и включает разделы, подразделы и т.п., то для удобства пользования им целесообразно создавать оглавление (как это делается в книгах). Создание оглавления возможно только в документе, который имеет иерархическую структуру, включающую как минимум два уровня иерархии и заголовки разделов и подразделов, созданные с применением стилей с наименованием Заголовок, или с стилей пользователя, созданных на основе стилей Заголовок. Заметим, что Word Позволяет создавать документы с иерархией до девяти уровней.
Как создать оглавление с использованием стилей заголовков?
Наиболее простым создания оглавления является использование встроенных форматов уровней структуры или стилей заголовков. Если встроенные форматы уровней структуры или стили заголовков уже используются, выполните следующие действия:
1. Установите мерцающий курсор в место вставки оглавления.
2. На ленте Ссылки в группе Оглавление раскройте список Оглавление.
3. Чтобы воспользоваться одним из готовых решений, кликните нужный вариант оглавления в списке.
Если вы хотите сделать настраиваемое оглавление, то:
1. В списке Оглавление выберите пункт Настраиваемое оглавление – откроется окно диалога Оглавление.
Aurora 3D Text and Logo Maker - это продвинутый, мощный дизайнерский инструмент для создания уникального 3D текста, кнопок и логотипов, имеет достаточно большое количество шаблонов и готовых форм, которые можно использовать для создания собственного текста. Aurora 3D Text and Logo Maker имеет комплект эффектов, анимаций, текстур, с которых можно украсить 3D логотип или текст. При создании трёхмерного логотипа можно отрегулировать уровень света, добавить теней, рельеф, выбирать различные варианты искривления, выравнивания, освещения, наложения объектов и т. д. Допускается импорт шрифтов и SVG-графики. Итоговый вариант выводится в виде PNG, TGA, TIFF, JPG, BMP, XPM и PPM-файлов.
N = 10;
var
i, k, max: integer;
a: array[1..N] of integer;
begin
Writeln('Исходные данные');
Randomize;
for i := 1 to N do
begin
k := random(100) - 50;
a[i] := k;
write(k:4)
end;
writeln;
max := -32768; //меньше не бывает
for i := 1 to N do
if max < a[i] then max := a[i];
writeln('Максимальное из чисел равно ', max)
end.
Тестовый пример:
Исходные данные
39 -42 -3 3 -37 -32 25 43 24 -17
Максимальное из чисел равно 43