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

• Массив вещественных чисел, первый и последний элементы тоже могут быть минимумами

  Ответить

• Исправил,
  Было:

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

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

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

  Стало:

  program Array34; var a:array[1..10] of integer; N,i,Max:Integer; checkbox:boolean; begin Write('N: '); Readln(N); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; Max:=0; if a[1]<a [2] then begin Max:=a[1]; checkbox:=False; end else checkbox:=True; for i:=2 to N-1 do if (a[i-1]>a[i]) and (a[i]</a><a [i+1]) then if (a[i]>Max) or checkbox then begin Max:=a[i]; checkbox:=False; end; if (a[N-1]>a[N])then if (a[N]>Max) or checkbox then begin checkbox:=False; Max:=a[N]; end; Writeln(Max); 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 25 26 27 28 29 30 31 32 33 34 35 36 37 38

  program Array34; var   a:array[1..10] of integer;   N,i,Max:Integer;   checkbox:boolean;   begin   Write('N: ');   Readln(N);   for i:=1 to N do    begin     write(i,' :');     readln(a[i]);    end;   Max:=0;   if a[1]<a [2] then    begin     Max:=a[1];     checkbox:=False;    end   else checkbox:=True;   for i:=2 to N-1 do    if (a[i-1]>a[i]) and (a[i]</a><a [i+1]) then     if (a[i]>Max) or checkbox then      begin       Max:=a[i];       checkbox:=False;      end;   if (a[N-1]>a[N])then    if (a[N]>Max) or checkbox then     begin      checkbox:=False;      Max:=a[N];     end;     Writeln(Max); end. </a>

  Ответить

• Program a34; Var a: array [1..10] of real; n,i,k,l: integer; maxmin,min: real; Begin k:=0; // максимальный локальный минимум не найден l:=0; // локальный минимум не найден Write('N='); Readln(n); For i:=1 to n do Begin Write(i,': '); Readln(a[i]); If (i=2) and (a[i-1]<a[i]) then // a[0] у нас нет, выбираем из двух Begin maxmin:=a[i-1]; // первый минимум берем за максимальный k:=1; End; If (i<>n) and (i>2) and (a[i-1]<a[i-2]) and (a[i-1]<a[i]) then Begin min:=a[i-1]; l:=1; End; If (i=n) and (a[i-1]>a[i]) then min:=a[i]; // a[n+1] у нас нет, выбираем из двух If (i>2) then Begin If (l=1) and (k=1) and (min>maxmin) then maxmin:=min; If (l=1) and (k=0) then Begin maxmin:=min; k:=1; // если не был найден ранее [19] End; End; End; Writeln(); Writeln(maxmin); End.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

  Program a34;   Var a: array [1..10] of real; n,i,k,l: integer; maxmin,min: real;   Begin k:=0; // максимальный локальный минимум не найден l:=0; // локальный минимум не найден Write('N='); Readln(n); For i:=1 to n do   Begin    Write(i,': ');    Readln(a[i]);    If (i=2) and (a[i-1]<a[i]) then // a[0] у нас нет, выбираем из двух     Begin      maxmin:=a[i-1]; // первый минимум берем за максимальный      k:=1;     End;    If (i<>n) and (i>2) and (a[i-1]<a[i-2]) and (a[i-1]<a[i]) then     Begin      min:=a[i-1];      l:=1;       End;    If (i=n) and (a[i-1]>a[i]) then min:=a[i]; // a[n+1] у нас нет, выбираем из двух    If (i>2) then     Begin      If (l=1) and (k=1) and (min>maxmin) then maxmin:=min;      If (l=1) and (k=0) then       Begin        maxmin:=min;        k:=1; // если не был найден ранее [19]       End;     End;   End; Writeln(); Writeln(maxmin); End.

  Ответить

  • не ну так то вроде работает… но первое и последнее условие впихивать в цикл… сомнительное удовольствие… вон.. как увеличилось уловие if по сравнению с примером в шапке 🙂

    Ответить