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

• Громоздко, но тоже верно

  uses PT4; var i,k,a:integer; begin Task('Series15'); read(k); a:=1; while (a <> 0) do begin read(a); if (a>k) then begin i:=i+1; write(i); break; end else if (a<=k) and (a <> 0) then begin i:=i+1; continue; end; write(0); end; end.

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

  uses PT4; var i,k,a:integer; begin   Task('Series15'); read(k); a:=1; while (a <> 0) do   begin     read(a);     if (a>k) then       begin         i:=i+1;         write(i);         break;       end     else if (a<=k) and (a <> 0) then       begin         i:=i+1;         continue;       end;     write(0);   end; end.

  Ответить

• Думаю, необходимо доработать код с учетом такого сценария:

  К = -3 // любое отрицательное число
  1е число: -4
  2е число: 0
  В данном случае 0 будет воспринят как первое число больше установленного предела.

  Достаточно добавить в условие:

  and (R <> 0)

  1	and (R <> 0)

  Ответить

  • *потерялось «не равно»

    Ответить

    • поправил ваш комментарий.

      Ответить

  • Да, проблема…
    Поправил, как вы и сказали:
    Было:

    if ( R>K) and (num=0) then num:=i;

    1	if ( R>K) and (num=0)  then num:=i;

    Стало:

    if ( R>K) and (num=0) and (R<>0) then num:=i;

    1	if ( R>K) and (num=0) and (R<>0)  then num:=i;

    Ответить

• var i, j, num, k: integer; begin write('введите целое число k: '); read(k); i := 0; j := 0; num := 1; while num <> 0 do begin inc(i); write('введите ', i, '-e число из набора: '); read(num); if (num > k) and (num <> 0) then begin j := i; break; end; end; write(j); end.

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

  var   i, j, num, k: integer; begin   write('введите целое число k: ');   read(k);   i := 0;   j := 0;   num := 1;   while num <> 0 do   begin     inc(i);     write('введите ', i, '-e число из набора: ');     read(num);     if (num > k) and (num <> 0) then begin       j := i;       break;     end;   end;   write(j); end.

  Ответить

• //ручной ввод, pascalABC.net begin var k:=ReadlnInteger('k ='); writeln('введите числа:'); writeln('индекс: ',ReadSeqIntegerWhile(t->t<>0).ToArray.FindIndex(t->t>k)+1); readln;readln; end.

  1 2 3 4 5 6 7

  //ручной ввод, pascalABC.net begin   var k:=ReadlnInteger('k =');   writeln('введите числа:');   writeln('индекс: ',ReadSeqIntegerWhile(t->t<>0).ToArray.FindIndex(t->t>k)+1);   readln;readln; end.

  //из массива, pascalABC.net begin var k:=6; var a:=ArrRandomInteger(20,0,10);a.Println; writeln('индекс: ',a.TakeWhile(t->t<>0).ToArray.FindIndex(t->t>k)+1); readln; end.

  1 2 3 4 5 6 7

  //из массива, pascalABC.net begin   var k:=6;   var a:=ArrRandomInteger(20,0,10);a.Println;   writeln('индекс: ',a.TakeWhile(t->t<>0).ToArray.FindIndex(t->t>k)+1);   readln; end.

  Ответить