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

• Массив — вещественный. Работает за редким исключением. Не согласен с Max:=a[1]. Почти всегда первый и последний элементы являются экстремумами, кроме a[1]=a[2] a[n-1]=a[n].

  Ответить

• Исходные данные
  N = 6
  -3.79 -7.14 7.77 0.99 5.66 -4.40
  Полученные результаты
  -3.79
  Пример верного решения
  0.00

  Ответить

• Было:

  program Array36; var a:array[1..10] of integer; N,i,Max:Integer; begin a[1]:=0; Write('N: '); Readln(N); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; Max:=a[1]; for i:=2 to N-1 do if not(((a[i-1]<a [i]) and (a[i]>a[i+1])) or ((a[i-1]>a[i]) and (a[i]</a><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 22 23

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

  Стало:

  program Array36; var a:array[1..10] of integer; N,i,Max:Integer; checkbox:boolean; begin a[1]:=0; 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 not(((a[i-1]<a [i]) and (a[i]>a[i+1])) or ((a[i-1]>a[i]) and (a[i]</a><a [i+1]))) then if (a[i]>Max) or checkbox then Max:=a[i]; if a[N-1]=a[N] and ((a[N]>Max) or checkbox) then Max:=a[N]; 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

  program Array36;   var   a:array[1..10] of integer;   N,i,Max:Integer;   checkbox:boolean;   begin   a[1]:=0;   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 not(((a[i-1]<a [i]) and (a[i]>a[i+1])) or ((a[i-1]>a[i]) and (a[i]</a><a [i+1]))) then     if (a[i]>Max) or checkbox then Max:=a[i];     if a[N-1]=a[N] and ((a[N]>Max) or checkbox) then Max:=a[N];     Writeln(Max); end. </a>

  Ответить

• Program a36; Var a: array [1..10] of real; n,i:integer; max,min: boolean; b1,b2: real; Begin b1:=0; b2:=0; Write('N='); Readln(n); For i:=1 to n do Begin Min:=False; Max:=False; Write(i,': '); Readln(a[i]); If (i=2) and (a[i-1]>a[i]) then min:=True; If (i=2) and (a[i-1]<a[i]) then max:=True; If (i=2) and (min=false) and (max=false) then b1:=a[i-1]; If (i>2) and (a[i-1]>a[i]) and (a[i-1]>a[i-2]) then max:=True; If (i>2) and (a[i-1]<a[i]) and (a[i-1]<a[i-2]) then min:=True; If (i>=2) and (max=false) and (min=false) then b1:=a[i-1]; If (b2=0) then b2:=b1; If (b1>b2) then b2:=b1; End; Writeln(); Writeln(b2:5:2); 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

  Program a36;   Var a: array [1..10] of real; n,i:integer; max,min: boolean; b1,b2: real; Begin b1:=0; b2:=0; Write('N='); Readln(n); For i:=1 to n do   Begin   Min:=False;   Max:=False;    Write(i,': ');    Readln(a[i]);    If (i=2) and (a[i-1]>a[i]) then min:=True;    If (i=2) and (a[i-1]<a[i]) then max:=True;    If (i=2) and (min=false) and (max=false) then b1:=a[i-1];    If (i>2) and (a[i-1]>a[i]) and (a[i-1]>a[i-2]) then max:=True;    If (i>2) and (a[i-1]<a[i]) and (a[i-1]<a[i-2]) then min:=True;    If (i>=2) and (max=false) and (min=false) then b1:=a[i-1];    If (b2=0) then b2:=b1;    If (b1>b2) then b2:=b1;     End; Writeln(); Writeln(b2:5:2); End.

  Ответить

  • Мда… решения какие то сложные для понимания… получаются… разместил это решение в шапке… 🙂

    Ответить

• program array_36;//pascalABC.net begin var n := 10; var a := ArrRandom(n, 0, 9); a.Println; var seekFirstMax := true; var max: integer; for var i := 1 to n - 2 do if (a[i] >= a[i - 1]) and (a[i] <= a[i + 1]) or (a[i] <= a[i - 1]) and (a[i] >= a[i + 1]) then begin if seekFirstMax then //если true - ищем первый максимум begin max := a[i]; seekFirstMax := false; end else if max < a[i] then max := a[i]//иначе ищем остальные end; Print(seekFirstMax ? 0 : max) end.

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

  program array_36;//pascalABC.net   begin   var n := 10;   var a := ArrRandom(n, 0, 9); a.Println;   var seekFirstMax := true;   var max: integer;      for var i := 1 to n - 2 do     if (a[i] >= a[i - 1]) and (a[i] <= a[i + 1]) or        (a[i] <= a[i - 1]) and (a[i] >= a[i + 1]) then     begin       if seekFirstMax then //если true - ищем первый максимум       begin         max := a[i];         seekFirstMax := false;       end       else if max < a[i] then max := a[i]//иначе ищем остальные     end;      Print(seekFirstMax ? 0 : max) end.

  Ответить