80
1
представьте ответы на вопросы в виде реферата. отформатируйте реферат. предусмотрите наличие титульной страницы, содержания, списка использованной (не менее 5 источников).
что такое стиль в текстовом процессоре ms word?
каковы преимущества стилевого форматирования перед ручным?
какие основные виды стилей существуют в ms word?
какова иерархия применения стилей к абзацу?
какие для применения стилей существуют?
как выделить все абзацы, имеющие один и тот же стиль?
как создать новый стиль абзаца или стиль символа и применить его для оформления текстового документа?
в каком режиме просмотра документов следует применять стили?
какие стандартные заголовочные стили существуют? почему заголовки в любом случае необходимо оформлять с стилей?
как можно использовать стили для создания структуры документа?
2
(на скринах)
const
nn=100;
var
a:array[1..nn] of integer;
p,s:longint;
i,n:byte;
begin
Write('Введите количество элементов в массиве: '); Read(n);
Writeln('Вводите целочисленные элементы массива через пробел');
s:=0; p:=1;
for i:=1 to n do begin
Read(a[i]);
if i mod 2 = 0 then p:=p*a[i];
s:=s+a[i]
end;
Writeln('Произведение элементов с четными номерами: ',p);
Writeln('Среднее арифметическое элементов: ',s/n)
end.
Тестовое решение:
Введите количество элементов в массиве: 10
Вводите целочисленные элементы массива через пробел
-4 6 11 8 12 21 7 13 9 -15
Произведение элементов с четными номерами: -196560
Среднее арифметическое элементов: 6.8
// Внимание! Если программа не работает, обновите версию!
type
R=sequence of integer;
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var P:R->BigInteger:=t->t.Aggregate(BigInteger(1),(p,q)->p*q);
if P(a.Where(t->t.IsEven))>P(a.Where(t->t.IsOdd))
then Writeln('Номер максимального элемента: ',a.IndexMax+1)
else Writeln('Номер минимального элемента: ',a.IndexMin+1)
end.
Примеры
n= 17
31 98 7 42 -70 -98 -34 43 -48 -40 -28 -35 15 26 25 1 -66
Номер минимального элемента: 6
n= 15
95 88 -82 96 87 -68 17 40 -66 1 60 -25 -78 -55 -55
Номер максимального элемента: 4