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

• строка 14:

  While ((A[k]>=A[10]) or (a[k]<=a[1]))and(k>1) do dec(k,1);

  1	While ((A[k]>=A[10]) or (a[k]<=a[1]))and(k>1) do dec(k,1);

  Ответить

• Да, согласен ошибка… но я немного больше переписал… как то мне не понравились длинные условия в While
  Было:

  While ((A[k]>=A[10]) and (a[k]< =a[1])) or (k=1) do k:=k-1; if k=1 then writeln ('0') else Writeln (a[k]);

  1 2 3

  While ((A[k]>=A[10]) and (a[k]< =a[1])) or (k=1) do k:=k-1;   if k=1 then writeln ('0')   else Writeln (a[k]);

  Стало:

  While (A[k]>=A[10]) and (k>0) do dec(k); if k=0 then writeln ('0') else Writeln (a[k]);

  1 2 3

  While (A[k]>=A[10]) and (k>0) do dec(k);   if k=0 then writeln ('0')   else Writeln (a[k]);

  Ответить

• Чего-то запутался в решении..
  Учтено ли условие, что искомый элемент должен быть больше первого элемента массива?
  Выводится сам элемент вместо порядкового номера?

  Оффтоп.
  Должны ли приходить оповещения на почту, если кто-то комментирует мои сообщения? Если да, то мне ни одно не пришло.

  Ответить

  • Вы не сколько не запутались, действительно небыло проверки первого элемента и вместо номера элемента выводилось значение.. поправил.

    Было:

    program Array19; var a:array[1..10] of integer; k:Integer; begin for k:=1 to 10 do begin write(k,' :'); readln(a[k]); end; k:=9; While (A[k]>=A[10]) and (k>0) do dec(k); if k=0 then writeln ('0') else Writeln (a[k]); end.

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

    program Array19; var   a:array[1..10] of integer;   k:Integer;   begin   for k:=1 to 10 do    begin     write(k,' :');     readln(a[k]);    end;     k:=9;   While (A[k]>=A[10]) and (k>0) do dec(k);   if k=0 then writeln ('0')   else Writeln (a[k]); end.

    Стало:

    program Array19; var a:array[1..10] of integer; k:Integer; begin for k:=1 to 10 do begin write(k,' :'); readln(a[k]); end; k:=9; While (((A[1]>=A[k]) or (A[k]>=A[10])) and (k>0)) do dec(k); if k=0 then writeln ('0') else Writeln (k); end.

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

    program Array19; var   a:array[1..10] of integer;   k:Integer;   begin   for k:=1 to 10 do    begin     write(k,' :');     readln(a[k]);    end;     k:=9;   While (((A[1]>=A[k]) or (A[k]>=A[10])) and (k>0)) do dec(k);   if k=0 then writeln ('0')   else Writeln (k); end.

    Ответить

  • Оповещения на почту должны приходить. Но почти точно они попадают в спам. :,(

    Ответить

    • Пусто(( Что в инбоксе, что в спаме, что в (гугловских дефолтных?) папках Forums, Updates. Как и в обобощенной All Mail 🙁

      Ответить

      • Включил журналирование. Похоже почта приходит только зарегестрированным пользователям.

        Ответить