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

• Аналогично задаче Array76 — внося сразу изменения в массив можем получить ложное срабатывание сравнения

  Ответить

• Поправил:
  Было:

  program Array77; var a : array[1..10] of integer; N,i:Integer; begin Write('N: '); Readln(N); Writeln('A: '); 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 a[i]:=sqr(a[i]); if a[1] < a[2] then a[1]:=sqr(a[1]); if a[N] < a[N-1] then a[N]:=sqr(a[N]); for i:=1 to N do writeln(i,' :',a[i]); end.

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

  program Array77; var   a : array[1..10] of integer;   N,i:Integer;   begin   Write('N: ');   Readln(N);     Writeln('A: ');   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 a[i]:=sqr(a[i]);   if a[1] < a[2] then a[1]:=sqr(a[1]);   if a[N] < a[N-1] then a[N]:=sqr(a[N]);     for i:=1 to N do writeln(i,' :',a[i]); end.

  Стало:

  program Array77; var a : array[1..10] of integer; N,i,k,an:Integer; begin Write('N: '); Readln(N); Writeln('A: '); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; if a[1]<a [2] then k:=sqr(a[1]); if a[N] < a[N-1] then an:=sqr(a[N]) else an:=a[N]; for i:=2 to N-1 do if (a[i-1]>a[i]) and (a[i]</a><a [i+1]) then begin a[i-1]:=k; k:=sqr(a[i]); end else begin a[i-1]:=k; k:=a[i]; end; a[N]:=an; for i:=1 to N do writeln(i,' :',a[i]); 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

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

  Ответить

• [crayon-673dff35b91fa234889049 inline="true" ] var n,i,m,m1:integer; a:array [1..10]of real; begin readln(n); for i:=1 to n do readln(a[i]); i:=1; while i<=n do begin if ((i=1)or(a[i-1]>a[i]))and((i=n)or(a[i]<a[i+1])) then begin a[i]:=a[i]*a[i];//здесь идея решения array76-2 inc(i); end; inc(i); end; for i:=1 to n do writeln(a[i]); end.

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

  [crayon-673dff35b91fa234889049 inline="true" ] var   n,i,m,m1:integer;       a:array [1..10]of real; begin     readln(n);   for i:=1 to n do readln(a[i]);   i:=1;     while i<=n do     begin                 if ((i=1)or(a[i-1]>a[i]))and((i=n)or(a[i]<a[i+1])) then         begin           a[i]:=a[i]*a[i];//здесь идея решения array76-2           inc(i);         end;       inc(i);         end;   for i:=1 to n do writeln(a[i]); end.

  [/crayon]

  Ответить

  • Добавил в шапку.

    Ответить