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

• Необходимо рассмотреть и случай когда минимумом является первый или последний элементы

  Ответить

• Поправил. Переписал на while, а то не понятно как проверять последний элемент.
  Было:

  program Array32; var a:array[1..10] of integer; N,i,num: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.

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

  program Array32; var   a:array[1..10] of integer;   N,i,num: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.

  Стало:

  program Array32; 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:=2; if a[1]<a [2] then writeln('1') else begin while (i<=N-1) and (not((a[i-1]>a[i]) and (a[i]</a><a [i+1]))) do inc(i); Writeln(i); end; end.

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

  program Array32; 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:=2;   if a[1]<a [2] then writeln('1')   else    begin     while (i<=N-1) and (not((a[i-1]>a[i]) and (a[i]</a><a [i+1]))) do      inc(i);     Writeln(i);   end; end.

  Ответить

• Первый локальный минимум — первый элемент, который меньше следующего, поэтому лишь одно условие в сравнении. Минимум по умолчанию равен N на случай если массив монотонно убывающий и сравнение не сработает.

  [crayon-673f8feb7b82c547999718 inline="true" ] var n,i,min:integer; a:array [1..10]of real; begin read(n); for i:=1 to n do read(a[i]); min:=n; for i:=1 to n-1 do if a[i]<a[i+1] then if min=n then min:=i; write(min); end.

  1 2 3 4 5 6 7 8 9 10 11

  [crayon-673f8feb7b82c547999718 inline="true" ] var   n,i,min:integer;     a:array [1..10]of real; begin     read(n);   for i:=1 to n do read(a[i]);   min:=n;         for i:=1 to n-1 do if a[i]<a[i+1] then if min=n then min:=i;       write(min);     end.

  [/crayon]

  Ответить

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

    Ответить

    • К сожалению, да. Тут и в некоторых задачах дальше проигнорил возможность повторов чисел. Переделав — получил обычное решение только с for. Тоже и с Array33.

      Ответить

• Программа в шапке работает не правильно, в случае с массивом, например (2,2,2) выведет 3 — номер последнего. Если while надо проверять i

  if i <> n then Writeln(i) else if a[i] < a[i - 1] then writeln(i) //else writeln('no minimums')

  1 2 3

  if i <> n then Writeln(i) else if a[i] < a[i - 1] then writeln(i) //else writeln('no minimums')

  Ответить