Комментарии: Решаем задачи Абрамян на Паскале. Series11

Автор: Bronislav

Bronislav — Wed, 21 Feb 2018 16:56:30 +0000

//автоматический воод, 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.

//автоматический воод, 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.

Автор: Bronislav

Bronislav — Wed, 21 Feb 2018 16:53:27 +0000

//ручной ввод, 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):=ReadlnInteger2('введите n и k:');

writeln('введите ',n, ' чисел:');

var a:=ReadArrInteger(n);

writeln(a.Where(t->t<k).Count>0);

readln;readln

end.

Автор: Anton

Anton — Wed, 24 Dec 2014 10:32:08 +0000

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

Автор: Кирилл

Кирилл — Mon, 22 Dec 2014 16:57:25 +0000

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

Автор: Кирилл

Кирилл — Mon, 22 Dec 2014 16:55:46 +0000

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.

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.