Для формирования сводного отчета по документооборотам выполните действия:
1. Выберите в главном меню «Действия – Сформировать отчет».
Откроется окно «Формирование отчета».
2. Укажите период, за который необходимо сформировать отчет по документооборотам. Для этого воспользуйтесь встроенным календарем или ссылками:
за все время - автоматически проставляется период с начала использования программы по текущую дату.
за месяц - автоматически проставляется период за месяц от текущей даты.
за неделю - автоматически проставляется период за дней от текущей даты.
3. Выберите документообороты, которые необходимо отобразить в сводном отчете при чекбоксов.
4. Укажите при необходимости для каждого направления документооборота дополнительные параметры, нажав на значок .
5. Развернется форма <Название направления документооборота> , например «Налоговая служба».
6. После того как все необходимые параметры отчета заполнены, нужно нажать на кнопку «Сформировать отчет». Начнется процесс формирования отчета, по окончании которого откроется окно просмотра отчета.
Программа:
Python:
import sys
max, min = -(sys.maxsize), sys.maxsize
c = 0
N = int(input('N = '))
print('Введите массив:')
arr = [int(input()) for i in range(N)]
for i in arr:
if len(str(i)) == 2 and i % 3 == 0:
if i < min: min = i
elif i > max: max = i
if max != -(sys.maxsize): print('Максимальное число:', max)
else: print('Нет максимального числа')
if min != (sys.maxsize): print('Минимальное число:', min)
else: print('Нет минимального числа')
Pascal:
var
arr: array of integer;
N, i, max, min, j, c: integer;
procedure Symv(j: integer; var c: integer);
begin
while j > 0 do begin
j := j div 10;
c += 1;
end;
end;
begin
max := -MAXINT;
min := MAXINT;
write('N = '); readln(N);
SetLength(arr, N);
writeln('Введите элементы массива:');
for i := 0 to N - 1 do readln(arr[i]);
writeln(arr);
for i := 0 to N - 1 do begin
Symv(arr[i], c);
if (c = 2) and (arr[i] mod 3 = 0) then begin
if arr[i] < min then min := arr[i]
else if arr[i] > max then max := arr[i]
end;
c := 0;
end;
if max <> -MAXINT then writeln('Максимальное число: ', max)
else writeln('Нет максимального числа.');
if min <> MAXINT then writeln('Минимальное число: ', min)
else writeln('Нет минимального числа.');
end.
