Internet- игрушка или враг проект по информатике

Для формирования сводного отчета по документооборотам выполните действия:

1. Выберите в главном меню «Действия – Сформировать отчет».

Откроется окно «Формирование отчета».

2. Укажите период, за который необходимо сформировать отчет по документооборотам. Для этого воспользуйтесь встроенным календарем или ссылками:

за все время - автоматически проставляется период с начала использования программы по текущую дату.

за месяц - автоматически проставляется период за месяц от текущей даты.

за неделю - автоматически проставляется период за дней от текущей даты.

3. Выберите документообороты, которые необходимо отобразить в сводном отчете при чекбоксов.

4. Укажите при необходимости для каждого направления документооборота дополнительные параметры, нажав на значок .

5. Развернется форма <Название направления документооборота> , например «Налоговая служба».

6. После того как все необходимые параметры отчета заполнены, нужно нажать на кнопку «Сформировать отчет». Начнется процесс формирования отчета, по окончании которого откроется окно просмотра отчета.

Const
    N = 15;
Var A:array[1..N] of integer;
    i,Kc,Kn,Sn:integer;
Begin
Kc:=0;
Sn:=0;
Kn:=0;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    if A[i] mod 2 = 0 then Kc:=Kc+1;
    if A[i] mod 2 <> 0 then
       Begin
       Sn:=Sn+A[i];
       Kn:=Kn+1;
       End;
    if A[i]>0 then A[i]:=0;
    End;
WriteLn;
WriteLn('Количество чётных: ',Kc);
WriteLn('Среднее арифметическое нечётных: ',Sn/Kn);
Write('Новый массив:');
For i:= 1 to N do
    Write(' ',A[i])
End.

Пример:
Исходный массив: -1 4 -8 9 -6 -10 0 3 9 -1 1 4 -2 -6 3
Количество чётных: 8
Среднее арифметическое нечётных: 3.28571428571429
Новый массив: -1 0 -8 0 -6 -10 0 0 0 -1 0 0 -2 -6 0