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

• При таком решении выводиться будут все порядковые номера двоек в каждом наборе. А нужно только первой двойки.
  Если поставить break после первого совпадения, то задачник выведет ошибку, что введены не все данные. Встал я в ступор, как тут быть, поэтому сделал многомерным динамическим массивом. Возможно, перемудрил, но всё работает:

  uses PT4; var k,n,i,j,num,count:integer; begin Task('Series32'); read(k,n); var arr:=new integer [k,n]; for i:=0 to k-1 do for j:=0 to n-1 do begin read(num); arr[i,j]:=num; end; for i:=0 to k-1 do begin count:=0; for j:=0 to n-1 do begin if arr[i,j]=2 then begin count:=j+1; break; end; end; write(count); 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 24 25 26

  uses PT4; var k,n,i,j,num,count:integer; begin Task('Series32');   read(k,n); var arr:=new integer [k,n];   for i:=0 to k-1 do     for j:=0 to n-1 do       begin         read(num);         arr[i,j]:=num;       end;   for i:=0 to k-1 do   begin     count:=0;     for j:=0 to n-1 do       begin          if arr[i,j]=2 then             begin               count:=j+1;               break;             end;       end;     write(count);   end; end.

  Ответить

  • >При таком решении выводиться будут все порядковые номера двоек в каждом наборе. А нужно только первой двойки.
    Почему ты так думаешь?

    for Ki:=1 to K do // бегу по всем наборам чисел
    begin
    Num:=0; // обнуляю num если он не встретится в наборе то будет равен нулю
    for Ni:=N downto 1 do // бегу по конкретному набору чисел с конца в начало используя конструкцию for downto do
    begin
    write(‘Введите ‘,Ni,’ число из ‘,Ki ,’ набора :’);
    Readln(A);
    if A=2 then Num:=Ni; // если встречается элемент равный 2 запомнить его номер
    end; // заканчиваю бежать по набору с конца в начало… номер самого первого элемента со значением 2 будет запомнен

    Writeln(Num);// выводим номер самого первого элемента со значением 2
    end;// заканчиваем бежать по наборам чисел.

    Минус данного метода, в том что числа набора вводятся в обратном порядке, но в задании не указанно откуда и как получаются данные наборы чисел.

    Ответить

    • Браво! Для прямого перебора предлагаю

      var k,n,i,i1,num,check:integer; begin read(k); read(n); for i:=1 to k do begin check:=0; for i1:=1 to n do begin read(num); if (num=2) and (check=0) then check:=i1; end; write(check); end; end.

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

      var k,n,i,i1,num,check:integer; begin   read(k);   read(n);   for i:=1 to k do     begin       check:=0;       for i1:=1 to n do         begin          read(num);          if (num=2) and (check=0) then check:=i1;         end;       write(check);       end; end.

      Ответить

      • Добавил решение.

        Ответить

• //pascalABC.net begin write('введите кол-во наборов: '); var k:=ReadlnInteger('k ='); write('введите кол-во элементов в наборах: '); var n:=ReadlnInteger('n ='); for var i:=1 to k do begin writeln('введите ',i,' набор из ',n,' элементов'); var a:=ArrGen(n,t->ReadInteger); (a.IndexOf(2)+1).Println; end; readln;readln; end.

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

  //pascalABC.net begin   write('введите кол-во наборов: ');   var k:=ReadlnInteger('k =');   write('введите кол-во элементов в наборах: ');   var n:=ReadlnInteger('n =');   for var i:=1 to k do   begin     writeln('введите ',i,' набор из ',n,' элементов');     var a:=ArrGen(n,t->ReadInteger);     (a.IndexOf(2)+1).Println;   end;   readln;readln; end.

  Ответить