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

• Тоже, что и в Array34

  Ответить

• Было:

  program Array35; 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.

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

  program Array35;   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.

  Стало:

  program Array35; 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; if a[1]>a[2] then begin Max:=a[1]; checkbox:=False; end else begin checkbox:=True; Max:=0; end; for i:=2 to N-1 do if (a[i-1]<a [i]) and (a[i]>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 Max:=a[N]; Writeln(Max); 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

  program Array35;   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;   if a[1]>a[2] then    begin     Max:=a[1];     checkbox:=False;    end   else    begin     checkbox:=True;     Max:=0;    end;   for i:=2 to N-1 do    if (a[i-1]<a [i]) and (a[i]>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 Max:=a[N];     Writeln(Max); end.

  Ответить