Комментарии 5

• Сейчас получаем номер первого(не последнего!) лок.максимума, также без учета первого и последнего элементов

  Ответить

• Переписал.
  Было:

  program Array33; var a:array[1..10] of integer; N,i:Integer; begin Write('N: '); Readln(N); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; for i:=2 to N-1 do if (a[i-1]<a [i]) and (a[i]>a[i+1]) then begin writeln(i); break; end; end. </a>

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

  program Array33; var   a:array[1..10] of integer;   N,i:Integer; begin   Write('N: ');   Readln(N);   for i:=1 to N do    begin     write(i,' :');     readln(a[i]);    end;   for i:=2 to N-1 do   if (a[i-1]<a [i]) and (a[i]>a[i+1]) then    begin     writeln(i);     break;    end; end. </a>

  Стало:

  program Array33; var a:array[1..10] of integer; N,i:Integer; begin Write('N: '); Readln(N); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; i:=N-1; if a[N]>a[N-1] then writeln(N) else begin while (i>1) and (not((a[i-1]<a [i]) and (a[i]>a[i+1]))) do dec(i); Writeln(i); end; end. </a>

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

  program Array33; var   a:array[1..10] of integer;   N,i:Integer;   begin   Write('N: ');   Readln(N);   for i:=1 to N do    begin     write(i,' :');     readln(a[i]);    end;     i:=N-1;   if a[N]>a[N-1] then writeln(N)   else    begin     while (i>1) and (not((a[i-1]<a [i]) and (a[i]>a[i+1]))) do      dec(i);     Writeln(i);   end; end. </a>

  Ответить

• Последний максимум — первый с конца элемент, который меньше предыдущего элемента. Схожая с Array32, только перебор в обратном порядке

  [crayon-6743323e6167a440885839 inline="true" ] var n,i,max:integer; a:array [1..10]of real; begin read(n); for i:=1 to n do read(a[i]); max:=1; for i:=n downto 2 do if a[i]>a[i-1] then if max=1 then max:=i; write(max); end.

  1 2 3 4 5 6 7 8 9 10 11

  [crayon-6743323e6167a440885839 inline="true" ] var   n,i,max:integer;     a:array [1..10]of real; begin     read(n);   for i:=1 to n do read(a[i]);   max:=1;           for i:=n downto 2 do if a[i]>a[i-1] then if max=1 then max:=i;       write(max);     end.

  [/crayon]

  Ответить

• опять же массив: 3 4 5 5 5 4 3
  Локальных максимумов нет.
  «локальный максимум — это элемент, который больше любого из своих соседей»

  Ответить

• то же самое (см array32) после while нужно проверять i

  if i <> 1 then Writeln(i) else if a[i] > a[i + 1] then Writeln(1) //else Writeln('no maximums')

  1 2 3

  if i <> 1 then Writeln(i) else if a[i] > a[i + 1] then Writeln(1) //else Writeln('no maximums')

  Ответить