Задание предлагает несовершенный алгоритм. При поиске максимума нет никакого смысла переприсваивать Amax. Образец того, как в школах сначала дают неоптимальные алгоритмы, а потом на ЕГЭ за неоптимальность снимают .
Предлагаемый вариант программы лишен указанного выше недостатка.
const nn=100; { максимальное количество элементов в массиве }
var a:array[1..nn] of integer; i,n,Amax,Aindex:integer;
begin Randomize; Write('n='); Read(n); for i:=1 to n do begin a[i]:=Random(101)-50; Write(a[i],' ') end; Writeln; Aindex:=1; for i:=2 to n do if a[i]>a[Aindex] then Aindex:=i; Amax:=a[Aindex]; Writeln('Максимальный элемент номер ',Aindex,' равен ',Amax) end.
Пример n=15 24 14 44 4 41 -50 14 3 7 38 21 -39 31 -2 12 Максимальный элемент номер 3 равен 44
Для формирования сводного отчета по документооборотам выполните действия:
1. Выберите в главном меню «Действия – Сформировать отчет».
Откроется окно «Формирование отчета».
2. Укажите период, за который необходимо сформировать отчет по документооборотам. Для этого воспользуйтесь встроенным календарем или ссылками:
за все время - автоматически проставляется период с начала использования программы по текущую дату.
за месяц - автоматически проставляется период за месяц от текущей даты.
за неделю - автоматически проставляется период за дней от текущей даты.
3. Выберите документообороты, которые необходимо отобразить в сводном отчете при чекбоксов.
4. Укажите при необходимости для каждого направления документооборота дополнительные параметры, нажав на значок .
5. Развернется форма <Название направления документооборота> , например «Налоговая служба».
6. После того как все необходимые параметры отчета заполнены, нужно нажать на кнопку «Сформировать отчет». Начнется процесс формирования отчета, по окончании которого откроется окно просмотра отчета.
Предлагаемый вариант программы лишен указанного выше недостатка.
const
nn=100; { максимальное количество элементов в массиве }
var
a:array[1..nn] of integer;
i,n,Amax,Aindex:integer;
begin
Randomize;
Write('n='); Read(n);
for i:=1 to n do begin
a[i]:=Random(101)-50;
Write(a[i],' ')
end;
Writeln;
Aindex:=1;
for i:=2 to n do
if a[i]>a[Aindex] then Aindex:=i;
Amax:=a[Aindex];
Writeln('Максимальный элемент номер ',Aindex,' равен ',Amax)
end.
Пример
n=15
24 14 44 4 41 -50 14 3 7 38 21 -39 31 -2 12
Максимальный элемент номер 3 равен 44
Для формирования сводного отчета по документооборотам выполните действия:
1. Выберите в главном меню «Действия – Сформировать отчет».
Откроется окно «Формирование отчета».
2. Укажите период, за который необходимо сформировать отчет по документооборотам. Для этого воспользуйтесь встроенным календарем или ссылками:
за все время - автоматически проставляется период с начала использования программы по текущую дату.
за месяц - автоматически проставляется период за месяц от текущей даты.
за неделю - автоматически проставляется период за дней от текущей даты.
3. Выберите документообороты, которые необходимо отобразить в сводном отчете при чекбоксов.
4. Укажите при необходимости для каждого направления документооборота дополнительные параметры, нажав на значок .
5. Развернется форма <Название направления документооборота> , например «Налоговая служба».
6. После того как все необходимые параметры отчета заполнены, нужно нажать на кнопку «Сформировать отчет». Начнется процесс формирования отчета, по окончании которого откроется окно просмотра отчета.