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

• uses PT4; var n,k,i,num:integer; bool: boolean; begin Task('Series11'); read(k,n); for i:=1 to n do begin read(num); if num < k then begin bool:= true; break; end else bool:=false; end; write(bool); end.

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

  uses PT4; var n,k,i,num:integer;     bool: boolean; begin   Task('Series11'); read(k,n);    for i:=1 to n do       begin          read(num);          if num < k then                begin                   bool:= true;                   break;                end                      else bool:=false;       end;       write(bool); end.

  Ответить

  • хотя в твоём коде изначально check:=false, поэтому получилось короче, без else

    Ответить

    • В этом решении, меня больше смущает, что нельзя будет ввести все значения числового набора. То есть если первое число меньше К, то выполнение программы остановится.
      Хотя если бы мне расслабиться и уйти из рамок TP 7.0 то я бы задействовал здесь вектора для решения данного задания… и ещё два цикла… в первом мне дают значения, а во втором я их анализирую.. 🙂

      Ответить

• //ручной ввод, pascalABC.net begin var (n,k):=ReadlnInteger2('введите n и k:'); writeln('введите ',n, ' чисел:'); var a:=ReadArrInteger(n); writeln(a.Where(t->t<k).Count>0); readln;readln end.

  1 2 3 4 5 6 7 8

  //ручной ввод, pascalABC.net begin   var (n,k):=ReadlnInteger2('введите n и k:');   writeln('введите ',n, ' чисел:');   var a:=ReadArrInteger(n);   writeln(a.Where(t->t<k).Count>0);   readln;readln end.

  Ответить

• //автоматический воод, pascalABC.net begin var (n,k):=(10,1); var a:=ArrRandomInteger(n,0,10); a.Println; writeln(a.Where(t->t<k).Count>0); readln; end.

  1 2 3 4 5 6 7

  //автоматический воод, pascalABC.net begin   var (n,k):=(10,1);   var a:=ArrRandomInteger(n,0,10); a.Println;   writeln(a.Where(t->t<k).Count>0);   readln; end.

  Ответить